TextFrame オブジェクト

TextFrame オブジェクト

複数のオブジェクト TextFrame 複数のオブジェクト

Shape オブジェクトのテキスト ボックスを表します。Shape オブジェクトには、レイアウト枠の配置や向きを制御するプロパティやメソッドだけでなく、レイアウト枠のテキストが含まれます。

使い方

TextFrame オブジェクトを取得するには、TextFrame プロパティを使用します。次の使用例は、myDocument に四角形を追加し、その四角形にテキストを追加し、次に、レイアウト枠に余白を設定します。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
    .TextRange.Text = "これはテストです"
    .MarginBottom = 10
    .MarginLeft = 10
    .MarginRight = 10
    .MarginTop = 10
End With
		

図形にレイアウト枠があるかどうかを確認するには、HasTextFrame プロパティを使用します。次の使用例に示すように、レイアウト枠にテキストが含まれているかどうかを確認するには、HasText プロパティを使用します。

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.HasTextFrame Then
        With s.TextFrame
            If .HasText Then MsgBox .TextRange.Text
        End With
    End If
Next