vba - 使用 VBA 在 PowerPoint 幻灯片的注释部分输入信息

Question

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

如有任何帮助，我们将不胜感激。我试图找到一个专门为此的网站，但未能找到

Answer 1

在 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...