HasText 属性

如果该属性值为 True，则指定的图形有相关的文字。Boolean 类型，只读。

示例

如果活动文档中的第二个图形包含文字，并且文字超出了图文框时，本示例显示一条消息。

Dim docActive As Document

Set docActive = ActiveDocument

With docActive.Shapes(2).TextFrame
    If .HasText = True Then 
        If .Overflowing = True Then
            Msgbox "Text overflows the frame."
        End If
    End If
End With