返回指定形状是否有与之相关联的文本。只读。MsoTriState 类型。
| MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue 指定形状有与之相关联的文本。 |
如果 myDocument 上的第二个形状包含文本，本示例将调整该形状使之适合文本。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(2).TextFrame
If .HasText Then .AutoSize = ppAutoSizeShapeToFitText
End With