通过

Characters.Text 属性 (Visio)

  • 项目

返回 由 Characters 对象表示的文本区域，该对象可能是形状文本的子集，具体取决于 Characters 对象的 Begin 和 End 属性的值。读/写。

语法

表达式。文本

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

返回值

Variant

备注

Characters 对象的文本以 String 类型的 Variant 形式返回，而不是以 String 形式返回。 如果您使用的是 Microsoft Visual Basic，这通常是透明的。

在 Characters 对象返回的文本中，域扩展为在绘图窗口中可见的字符数。 例如，如果形状的文本包含显示绘图文件名的域，则 Characters 对象的 Text 属性返回扩展的文件名（假设 Begin 和 End 属性未改变）。

如果 Characters 对象代表形状的文本，而该形状是一个组，则此对象将总是返回该组的文本。

其他应用程序中的对象和参考线没有 Text 属性。

如果 Visual Studio 解决方案包含 Microsoft.Office.Interop.Visio 引用，则此属性映射到以下类型：

  • Microsoft.Office.Interop.Visio.IVCharacters.Text

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何获取 Characters 对象的 Text 属性。

 
Public Sub CharactersText_Example()  
 
    Dim vsoOval As Visio.Shape  
    Dim vsoCharacters As Visio.Characters  
 
    'Create a shape and add text. 
    Set vsoOval = ActivePage.DrawOval(2, 5, 5, 7)  
    vsoOval.Text = "Oval Shape"  
 
    'Get a Characters object from the shape. 
    Set vsoCharacters = vsoOval.Characters  
 
    'Get the text from the Characters object. 
    Debug.Print vsoCharacters.Text  
 
End Sub

支持和反馈

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