使用 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...