TextFrame2 Object

PowerPoint Developer Reference

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.

Remarks

Use the TextFrame2 property of the Shape and ShapeRange objects to return a TextFrame2 object.

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.

Example

The following example adds a rectangle to a slide, adds text to the rectangle, and then sets the margins for the text frame.

Visual Basic for Applications
  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

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.

Visual Basic for Applications
  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

See Also