AutoSize Property

Microsoft PowerPoint Visual Basic

Returns or sets a value that indicates whether the size of the specified shape is changed automatically to fit text within its boundaries. Read/write PpAutoSize.

PpAutoSize can be one of these PpAutoSize constants.
ppAutoSizeMixed
ppAutoSizeNone
ppAutoSizeShapeToFitText

expression.AutoSize

expression    Required. An expression that returns one of the objects in the Applies To list.

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