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

【问题标题】：PowerPoint Add-in Add a textbox to a selected slidePowerPoint 加载项将文本框添加到所选幻灯片
【发布时间】：2021-01-21 18:36:52
【问题描述】：

我正在尝试制作一个按钮，当单击该按钮时，将在指定位置以指定格式（字体、大小、颜色、对齐）将两个文本框添加到选定幻灯片。我一直在尝试对任何适用的东西进行逆向工程，但最终却破坏了一些东西。这套代码将允许我制作一个矩形（不是首选的文本框）大小并将其放置（只有 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

【问题讨论】：

标签： vba textbox powerpoint add-in

【解决方案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)

根据需要更改文本方向。

【讨论】：