2

テキストボックスをスライドに入力してテキストを入力するVBAの書き方を見つけようとしています。また、PowerPoint スライドのノート セクションにテキストを入力するための vba を探しています。

どんな助けでも大歓迎です。これに特化したサイトを見つけようとしましたが、見つけることができませんでした

4

1 に答える 1

4

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...
于 2009-07-23T18:18:58.160 に答える