TextFrame2 オブジェクト (PowerPoint)

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

注釈

TextFrame2 オブジェクトを取得するのには、 図形 オブジェクトおよび 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 のサポートおよびフィードバックを参照してください。