使用VBA将信息输入PowerPoint幻灯片的“备注”部分

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

---

任何帮助都将不胜感激。我曾试图找到一个专门用于此目的的网站，但未能找到

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

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

例如：

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（）的参数非常简单

要添加到notes部分，我只使用您的notes页面所在幻灯片上的NotesPage对象…因此上述代码大致相同，除了：

    Set oTextBox = DestSlide.NotesPage.Shapes.AddTextbox(msoTextOrientat...

---

非常感谢。我一直在寻找一些非常快速和中肯的东西有好一阵子了！！如何使用文本框？更改大小、字体、下划线等？再次感谢乔恩！另外，如何调整此代码以调整文本框的大小？我刚刚尝试了此解决方案，但幻灯片中没有显示任何内容（我使用的是Windows 10中的office 2016），您知道为什么这样做不起作用吗？