通过

Visio) (Shape.Data1 属性

  • 项目

获取或设置 Shape 对象的“Data1”域的值。 读/写。

语法

expression。 Data1

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

返回值

String

备注

使用 Data1 属性可提供有关形状的其他信息。 该属性最多可包含 64 KB 的字符。 使用超过 3,000 个字符的字符串时应谨慎使用文本控制。 设置 Data1 属性等效于在“特殊”对话框中的“数据 1”框中输入信息， (在“开发工具”选项卡上的“形状设计”组中单击“形状名称”) 。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何设置形状的 Data1、Data2 和 Data3 属性。 它在“即时”窗口中输出这些属性的值。 还可以通过打开“特殊”对话框确认已经设置了这些值。

Public Sub Data123_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 Set vsoPage = Documents.Add("").Pages(1) 
 Set vsoShape = vsoPage.DrawRectangle(3, 3, 5, 5) 
 
 'Use the Data1, Data2, and Data3 properties to set 
 'the shape's Data fields. 
 vsoShape.Data1 = "Data1_String" 
 vsoShape.Data2 = "Data2_String" 
 vsoShape.Data3 = "Data3_String" 
 
 'Use the Data1, Data2, and Data3 properties to verify 
 'the shape's Data field values. 
 Debug.Print vsoShape.Data1 
 Debug.Print vsoShape.Data2 
 Debug.Print vsoShape.Data3 
 
End Sub

支持和反馈

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