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（）的参数非常明显......

要添加到notes部分，我只是在你的笔记页面所在的幻灯片上使用NotesPage对象......所以上面的代码大致相同，除了：

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

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

1 个答案: