通过

TextFrame2.AutoSize 属性 (Office)

返回或设置一个值，该值指示是否自动更改指定形状的大小以使其中的文本适应边界。 读/写。

语法

表达式。AutoSize

表达 返回 TextFrame2 对象的表达式。

备注

AutoSize 属性的值可以是以下 MsoAutoSize 常量之一：

  • msoAutoSizeMixed
  • msoAutoSizeNone
  • msoAutoSizeShapeToFitText
  • msoAutoSizeTextToFitShape

示例

下面的代码说明如何调整幻灯片 1 上标题文本的大小，以适应包含该文本的文本框。

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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。