TextFrame2 オブジェクト (PowerPoint)TextFrame2 object (PowerPoint)

Shape オブジェクトまたは ShapeRange オブジェクトのテキストフレームを表します。Represents the text frame in a Shape or ShapeRange object. テキストフレームにテキストを格納し、テキストフレームの配置や向きを制御するプロパティやメソッドを公開します。Contains the text in the text frame and exposes properties and methods that control the alignment and anchoring of the text frame.


TextFrame2オブジェクトを取得するのにには、 ShapeおよびShapeRangeオブジェクトのTextFrame2プロパティを使用します。Use the TextFrame2 property of the Shape and ShapeRange objects to return a TextFrame2 object.

HasTextFrameプロパティを使用して、図形または図形範囲にテキストフレームがあるかどうかを確認し、 HasTextプロパティを使用して、テキストフレームにテキストが含まれているかどうかを判断します。Use the HasTextFrame property to determine whether a shape or shape range has a text frame, and use the HasText property to determine whether the text frame contains text.


次のコード例は、スライドに四角形を追加して、その四角形にテキストを追加し、さらにレイアウト枠の余白を設定します。The following example adds a rectangle to a slide, adds text to the rectangle, and then sets the margins for the text frame.

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プロパティを使用して、テキストフレームにテキストが含まれているかどうかを判断する方法を示します。The following example shows how to use the HasTextFrame property to determine whether a shape has a text frame, and then how to use the HasText property to determine whether the text frame contains text.

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



End Sub

関連項目See also

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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.