TextFrame2 オブジェクト (PowerPoint)

Shape オブジェクトまたは ShapeRange オブジェクトのテキストフレームを表します。 テキストフレームにテキストを格納し、テキストフレームの配置や向きを制御するプロパティやメソッドを公開します。

解説

TextFrame2 オブジェクトを取得 するには 、Shape オブジェクトと ShapeRange オブジェクトの TextFrame2 プロパティを使用 します。

HasTextFrame プロパティを使用して、図形または図形範囲にテキスト フレームが含まれているかどうかを判断し 、HasText プロパティを使用してテキスト フレームにテキストが含まれているかどうかを判断します。

次のコード例は、スライドに四角形を追加して、その四角形にテキストを追加し、さらにレイアウト枠の余白を設定します。

Public Sub TextFrame2_Example()



    Set pptSlide = ActivePresentation.Slides(1)

    With pptSlide.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame2

        .TextRange.Text = "Here is some sample text"

        .MarginBottom = 10

        .MarginLeft = 10

        .MarginRight = 10

        .MarginTop = 10

    End With

    

End Sub

次の例は 、HasTextFrame プロパティを使用して図形にテキスト フレームが含まれているかどうかを判断する方法、 および HasText プロパティを使用してテキスト フレームにテキストが含まれているかどうかを判断する方法を示しています。

Public Sub HasTextFrame_Example()



    Set pptSlide = ActivePresentation.Slides(1)

    For Each pptShape In pptSlide.Shapes

        If pptShape.HasTextFrame Then

            With pptShape.TextFrame2

                If .HasText Then MsgBox .TextRange.Text

            End With

        End If

    Next

    

End Sub

関連項目

PowerPoint オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。