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