VBAを使用してPowerPointスライドの「ノーツ」セクションに情報を入力してください

Question

スライドにテキストボックスを入力してテキストを入力する方法を調べています。私はまた、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...