Shape.Text 属性 (Visio)
返回形状的所有文本。 读/写。
表达式。文本
expression 一个代表 Shape 对象的变量。
String
在 Shape 对象的 Text 属性返回的文本中,字段由转义字符 (30 (&H1E) ) 表示。 如果希望文本包含展开的字段,请获取形状的 Characters 属性,然后获取生成的 Characters 对象的 Text 属性。
如果该形状是一个组,则返回的文本取决于 IsTextEditTarget 单元格的值。
如果 IsTextEditTarget 为 True,则 Shape 对象的 Text 属性将返回组的文本。
如果 IsTextEditTarget 为 False,则 Shape 对象的 Text 属性返回堆叠顺序顶部组中形状的文本。
其他应用程序中的对象和参考线没有 Text 属性。
如果 Visual Studio 解决方案包含 Microsoft.Office.Interop.Visio 的引用,该属性将映射到以下类型:
- Microsoft.Office.Interop.Visio.IVShape.Text
以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何获取形状的 Text 属性。
Public Sub ShapeText_Example()
Dim vsoRectangle As Visio.Shape
Dim vsoOval As Visio.Shape
Dim vsoShapeFromCell As Visio.Shape
Dim vsoShapeFromCharacters As Visio.Shape
Dim vsoCell As Visio.Cell
Dim vsoCharacters As Visio.Characters
'Create 2 different shapes and add different text to each shape.
Set vsoRectangle = ActivePage.DrawRectangle(2, 3, 5, 4)
Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)
vsoRectangle.Text = "Rectangle Shape"
vsoOval.Text = "Oval Shape"
'Get a Cell object from the first shape.
Set vsoCell = vsoRectangle.Cells("Width")
'Get a Characters object from the second shape.
Set vsoCharacters = vsoOval.Characters
'Use the Shape property to get the Shape object.
Set vsoShapeFromCell = vsoCell.Shape
Set vsoShapeFromCharacters = vsoCharacters.Shape
'Use each shape's text to verify the proper Shape
'object was returned.
Debug.Print vsoShapeFromCell.Text
Debug.Print vsoShapeFromCharacters.Text
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。