TextFrame2 Object (PowerPoint)
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.
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.
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