2

我正在尝试了解您如何编写 VBA 以在幻灯片中输入文本框并输入文本。我还试图找到用于在 PowerPoint 幻灯片的注释部分输入文本的 vba。

任何帮助将不胜感激。我试图找到一个专门为此的网站，但一直没能做到

4

1 回答 1

4

在 PPT 幻灯片中输入文本与进入注释部分大致相同。

您必须从 Slide 对象引用开始，它代表您要添加到的幻灯片；然后将文本框形状添加到幻灯片的形状集合中。

例子：

Sub AddTextBoxToSlide()

    Dim oDestSlide As PowerPoint.Slide
    Set oDestSlide = ActivePresentation.Slides(1)

    Dim slideWidth As Single
    Dim slideHeight As Single
    slideWidth = oDestSlide.Parent.PageSetup.SlideWidth
    slideHeight = oDestSlide.Parent.PageSetup.SlideHeight

    Dim oTextBox As PowerPoint.Shape
    Set oTextBox = oDestSlide.Shapes.AddTextbox( _
                    Orientation:=msoTextOrientationHorizontal, _
                    Left:=0, _
                    Top:=0, _
                    Width:=slideWidth, _
                    Height:=slideHeight / 12)

    oTextBox.TextFrame.TextRange.Text = "Shape text here"

End Sub

所有这一切都是在幻灯片顶部的活动演示文稿的第一张幻灯片中添加一个文本框形状。它与幻灯片一样宽，是幻灯片高度的 1/12。Shapes.AddTextbox() 的参数非常不言自明......

要添加到注释部分，我只需在您的注释页面所在的幻灯片上使用 NotesPage 对象......所以上面的代码大致相同，除了：

    Set oTextBox = DestSlide.NotesPage.Shapes.AddTextbox(msoTextOrientat...
于 2009-07-23T18:18:58.160 回答