HasTextFrame プロパティ

  • [アーティクル]
Microsoft PowerPoint Visual Basic リファレンス

HasTextFrame プロパティ

指定した図形にレイアウト枠が含まれているかどうかを示す値を取得します。値の取得のみ可能です。MsoTriState クラスの定数を使用します。

使用できる定数は、次に示す MsoTriState クラスの定数のいずれかです。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定した図形にはレイアウト枠があり、テキストを含むことができます。

使用例

次の使用例は、スライド 1 のレイアウト枠を含むすべての図形の名前とテキストを表示します。

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