PowerPoint加载项将文本框添加到所选幻灯片

Question

我正在尝试制作一个按钮，当单击该按钮时，将在指定位置以指定格式(字体、大小、颜色、对齐(向所选幻灯片添加两个文本框。我一直在尝试对任何适用的东西进行逆向工程，但最终却把事情搞砸了。这组代码将允许我制作一个矩形(而不是首选的文本框(大小，并将其与示例文本一起放置(只有1而不是2(。。就我而言，我不知道如何让它在选定的幻灯片或活动窗口上创建一个文本框。。我做错了什么？这是我找到的代码。。

Sub AddTextBox()
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddTextBox(msoShapeRectangle, 180, 175, 350, 140).TextFrame
.TextRange.Text = "Ctrl+A(Select all), Ctrl+V(Paste)"
.MarginTop = 10

End With
End Sub

Answer 1

要引用当前显示的幻灯片，可以使用View对象的slide属性。。。

Dim mySlide As Slide
Set mySlide = ActiveWindow.View.Slide

对于创建文本框，根据此处的文档，以下是正确的语法。。。

语法

表达。AddTextbox(方向，左、顶部和宽度，高度(

表达式表示Shapes对象的变量。

所以，在你的情况下，它会是这样的。。。

Dim myTextbox As Shape
Set myTextbox = mySlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 180, 175, 350, 140)

根据需要更改文本方向。