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