返回或设置一个值，该值指示指定形状的大小是否为容纳其边界内的文本而自动更改。可读写。PpAutoSize 类型。
| PpAutoSize 可以是下列 PpAutoSize 类型常数之一。 |
| ppAutoSizeMixed |
| ppAutoSizeNone |
| ppAutoSizeShapeToFitText |
expression.AutoSize
expression 必选。该表达式返回“应用于”列表中的对象之一。
本示例调整第一个幻灯片的标题边界框以容纳标题文本。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1)
If .TextFrame.TextRange.Characters.Count < 50 Then
.TextFrame.AutoSize = ppAutoSizeShapeToFitText
End If
End With