Returns whether the specified shape has text associated with it. Read-only MsoTriState.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue The specified shape has text associated with it. |
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