ShapeRange.HasTextFrame 属性 (Publisher)

指示指定的形状是否具有与之关联的 TextFrame 对象。 此为只读属性。

语法

表达式。HasTextFrame

表达 一个代表 ShapeRange 对象的变量。

备注

如果 HasTextFrame 属性为 true，则客户端必须检查 TextFrame 对象的 HasText 属性的值，以确定形状上是否有任何文本。

HasTextFrame 属性值可以是 Microsoft Office 类型库中声明的 MsoTriState 常量之一，如下表所示。

常量	说明
msoFalse	指定的形状没有一个 TextFrame 对象，该对象与之关联。
msoTriStateMixed	指示 属性值为 msoTrue 和 msoFalse 指定的形状范围的组合。
msoTrue	指定的图形有一个 TextFrame 对象，该对象与之关联。

示例

本示例测试所选内容中的所有形状，如果没有与之关联的文本框架，则它们左对齐。

Sub MoveLeft() 
 
 Dim shpAll As ShapeRange 
 
 Set shpAll = Application.ActiveDocument.Selection.ShapeRange 
 If shpAll.HasTextFrame = msoFalse Then 
 shpAll.Align msoAlignLefts, msoTrue 
 End If 
 
End Sub

支持和反馈

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