使用VBA將信息輸入PowerPoint幻燈片的註釋部分

Question

我想了解如何編寫VBA以將文本框輸入幻燈片並輸入文本。我也試圖找到vba在PowerPoint幻燈片的註釋部分輸入文本。

任何幫助將不勝感激。我試圖找到一個專門爲此而設的網站，但一直未能如此做

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