将ActiveX控件插入PowerPoint幻灯片

Question

我想在Powerpoint幻灯片中插入自定义的ActiveX控件。我已经创建了自定义控件并进行了注册，测试了它的功能。我可以轻松地将自定义控件添加到用户窗体中，但无法直接将其添加到幻灯片上（就像开发人员选项卡下的其他控件一样）。

是否可以直接向幻灯片添加自定义ActiveX控件？

如果不行，是否可以直接嵌入用户窗体到幻灯片中？

谢谢！

- User_FSharp1123

---

你尝试从“开发人员-->更多控件-->注册自定义”中添加控件了吗？ - A.S.H

我尝试过这个方法。当我以这种方式注册控件时，没有出现错误，但在注册后仍无法从“更多控件”菜单中使用。 - User_FSharp1123

似乎你需要提供关于自定义控件的更多细节，例如：它是什么类型的控件，你使用了什么工具来创建和注册它。我建议阅读以下文章: 在VBA（而不是VB）中使用VS2008自定义控件 和 将自定义控件添加到控件工具箱中。 - Maciej Los

Answer 1

我猜测一下，但值得一试。当您注册ActiveX控件时，我假设您同时分配了一个程序ID，是吗？如果是这样，那么您可能能够将其添加为指定幻灯片的形状对象。当您添加形状时，可以添加特定类型的形状，包括OLE对象。

例如，在下面的代码中，我使用PowerPoint VBA将ActiveX ComboBox控件添加到活动演示文稿的幻灯片1中。需要注意的关键事项是ProgID标识要插入的对象。

Sub ActiveXControlAdd()

'Declare your variables.
Dim PPTPres As Presentation
Dim PPTSld As Slide
Dim PPTShp As Shape

'Grab the slide you want it on.
Set PPTPres = ActivePresentation
Set PPTSld = PPTPres.Slides(1)

'Add a shape, but make sure it's an OLEObject. Also, CLASSNAME is the ProgID!
Set PPTShp = PPTSld.Shapes.AddOLEObject(Left:=100, Top:=100, Width:=150, Height:=50, ClassName:="Forms.ComboBox.1")

'Print it out to make sure.
Debug.Print PPTShp.OLEFormat.ProgID

End Sub

试一试，看看是否可以解决问题。

- areed1192

Answer 2

如果我理解正确，您想将ActiveX控件插入到PowerPoint幻灯片中：

转到 文件 > 选项 > 自定义功能区

在第二列中，勾选“开发人员”选项卡。

勾选后，您应该可以在 PowerPoint 中看到“开发人员”选项卡。单击它。

第三和第四列是ActiveX控件的位置：

例如：

您想插入文本框。 您单击标有“abc”的图标，位于大写字母“A”旁边。 然后，您可以像放置形状一样将其放在幻灯片上。 点击并拖动。

- Dániel Bögi