HasText Property

Applies To

TextFrame object.

Description

True if the specified shape has text associated with it. Read-only Long.

Example

If shape two on myDocument contains text, this example resizes the shape to fit the text.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(2).TextFrame
    If .HasText Then .AutoSize = ppAutoSizeShapeToFitText
End With