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

对于创建文本框，这里是根据文档here的正确语法...

句法

表达。 AddTextbox(方向,左,顶部,宽度,高度)

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

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

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

根据需要更改文本方向。