TextFrame2.AutoSize Property (PowerPoint)
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.
Syntax
expression .AutoSize
expression An expression that returns a TextFrame2 object.
Return Value
MsoAutoSize
Remarks
The value of the AutoSize property can be one of the following MsoAutoSize constants.
msoAutoSizeMixed |
msoAutoSizeNone |
msoAutoSizeShapeToFitText |
msoAutoSizeTextToFitShape |
Example
The following example shows how to adjust the size of the title text on slide one to fit the text frame that contains it.
Public Sub AutoSize_Example()
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides(1)
With pptSlide.Shapes(1)
If .TextFrame2.TextRange.Characters.Count < 50 Then
.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
End If
End With
End Sub