AutoSize Property
Applies To
TextFrame object.
Description
Returns or sets a value that indicates whether the size of the specified shape is changed automatically to fit text within its boundaries. Can be one of the following PpAutoSize constants: ppAutoSizeMixed, ppAutoSizeNone, or ppAutoSizeShapeToFitText. Read/write Long.
Example
This example adjusts the size of the title bounding box on slide one to fit the title text.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1)
If .TextFrame.TextRange.Characters.Count < 50 Then
.TextFrame.AutoSize = ppAutoSizeShapeToFitText
End If
End With