HasTextFrame プロパティ (PowerPoint)Shape.HasTextFrame property (PowerPoint)

指定した図形にテキストフレームが含まれているかどうかを示す値を取得します。Returns whether the specified shape has a text frame. 読み取り専用です。Read-only.

構文Syntax

expression.expression. HasTextFrame

: Shape オブジェクトを表す変数。expression A variable that represents a Shape object.

戻り値Return value

MsoTriStateMsoTriState

注釈Remarks

HasTextFrameプロパティの値に使用できるのは、次に示すMsoTriStateクラスの定数のいずれかです。The value of the HasTextFrame property can be one of these MsoTriState constants.

定数Constant 説明Description
msoFalsemsoFalse 指定した図形にはテキストフレームがないため、テキストを含めることができません。The specified shape does not have a text frame and therefore cannot contain text.
msoTruemsoTrue 指定した図形にはテキストフレームがあるため、テキストを含めることができます。The specified shape has a text frame and can therefore contain text.

Example

次の使用例は、スライド 1 のレイアウト枠を含むすべての図形の名前とテキストを表示します。This example extracts text from all shapes on the first slide that contain text frames, and then it stores the names of these shapes and the text they contain in an array.

Dim shpTextArray() As Variant

Dim numShapes, numAutoShapes, i As Long



Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes
    numShapes = .Count
    If numShapes > 1 Then
        numTextShapes = 0
        ReDim shpTextArray(1 To 2, 1 To numShapes)
        For i = 1 To numShapes
            If .Item(i).HasTextFrame Then
                numTextShapes = numTextShapes + 1
                shpTextArray(numTextShapes, 1) = .Item(i).Name
                shpTextArray(numTextShapes, 2) = .Item(i) _
                    .TextFrame.TextRange.Text
            End If
        Next
        ReDim Preserve shpTextArray(1 To 2, 1 To numTextShapes)
    End If
End With

関連項目See also

Shape オブジェクトShape Object

サポートとフィードバック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.