HasText Property Example
If shape two on myDocument contains text, this example resizes the shape to fit the text.
myDocument
Set myDocument = ActivePresentation.Slides(1) With myDocument.Shapes(2).TextFrame If .HasText Then .AutoSize = ppAutoSizeShapeToFitText End With