如何在PowerPoint上动态创建ActiveX文本框

Question

我是一名自由职业的Java程序员，第一次被要求在PowerPoint上进行一些VBA编程，我有点挣扎。

我创建了一个按钮，它触发了幻灯片的创建(这很有效(。在这张新幻灯片上，我想创建一个ActiveX文本框(在演示模式下工作的文本框之一(，但我只能创建"标准"PowerPoint文本框。

我确信这是一个很容易的命令，但我在任何地方都找不到。。

这是我正在使用的代码。有人能帮我吗？非常感谢。

Public Sub addContentToSatelliteSlide()
currentSlide = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex 
'CURRENT SLIDE ON SLIDESHOW
With ActivePresentation.Slides(currentSlide + 1).Shapes
With .AddTextbox(msoTextOrientationHorizontal, 160, 80, 400, 400).TextFrame
.TextRange.Text = "add informatiom here"
.TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignLeft
.TextRange.Font.Color = RGB(255, 255, 255)
.TextRange.Font.Size = 11
.TextRange.Font.Name = "Arial"
.TextRange.Font.Bold = False
.TextRange.Font.Color = RGB(0, 0, 0)    'BLACK
End With 
End With
End Sub

Answer 1

ActiveX文本框是OLE控件，因此请使用以下语法：

.AddOLEObject Left:=160, Top:=80, Width:=400, Height:=400, ClassName:="Forms.TextBox.1"

这是Microsoft的帮助页面：Shapes.AddOLEObject方法(PowerPoint(