DataColumn.GetProperty 方法 (Visio)

获取指定的数据列属性的值。

注意

此 Visio 对象或成员仅供 Visio Professional 2013 的授权用户使用。

语法

表达式。GetProperty (属性)

表达 返回 DataColumn 对象的表达式。

参数

名称	必需/可选	数据类型	说明
属性	必需	VisDataColumnProperties	要获取的数据列属性。 有关可能的值 ，请参阅备注 。

返回值

Variant

备注

在将 Microsoft Visio 绘图中的形状链接到某一数据记录集内的数据时，Visio 会将该数据记录集内的列映射到 ShapeSheet 电子表格的“形状数据”部分中的行，其中每一行均与一个形状数据项相对应。

注意

在 Visio 以前的一些版本中，形状数据被称为自定义属性。

数据列属性将数据列映射到 ShapeSheet 的“形状数据”部分中的某些单元格。 例如，通过传递 GetProperty 方法 DisplayName 属性（由枚举值 visDataColumnPropertyDisplayName 表示），可以获取特定形状数据项 ShapeSheet 的“形状数据”部分中的 Label 单元格的值。 此外，该属性在“ 形状 数据”对话框中设置形状数据项的标签，以及 Visio 用户界面的“ 外部 数据”窗口中显示的数据列的名称。

Property 参数的可能值在 VisDataColumnProperties 中声明，如下表所示。

常量	值	Description
visDataColumnPropertyCalendar	3	数据列属性的日历。
visDataColumnPropertyCurrency	5	数据列属性的货币。
visDataColumnPropertyDisplayName	6	数据列属性在用户界面中的显示名称。
visDataColumnPropertyHyperlink	8	数据列值在链接到形状时，是否成为 Visio 用户界面中的超链接。
visDataColumnPropertyLangID	2	数据列属性的语言 ID。
visDataColumnPropertyType	1	数据列属性的类型。
visDataColumnPropertyUnits	4	数据列属性的单位。
visDataColumnPropertyVisible	7	数据列属性是否在用户界面中可见。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 GetProperty 方法获取传递给 方法的数据记录集中第一列的“形状数据”部分中 Label 单元格的值，并将其显示在“即时”窗口中。 然后，它使用 SetProperty 方法设置值并显示新值。 对于链接到该数据记录集各行的所有形状来说，更改这个值也就是在“形状数据”对话框中更改形状数据项的标签。

为获取和设置“标签”单元格的值，这个宏将 visDataColumnPropertyDisplayName 值从 VisDataColumnProperties 枚举传递给 DataColumn.GetProperty 和 DataColumn.SetProperty 方法。

在运行这个宏之前，至少要在 VBA 项目中创建一个要传递给这个宏的数据记录集。

 
Public Sub GetProperty_Example(vsoDataRecordset As Visio.DataRecordset) 
    Dim strPropertyName As String 
    Dim strNewName As String 
    Dim vsoDataColumn As Visio.DataColumn 
 
    strNewName = "New Property Name" 
    Set vsoDataColumn = vsoDataRecordset.DataColumns(1) 
 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
 
    vsoDataColumn.SetProperty visDataColumnPropertyDisplayName, strNewName 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
End Sub

支持和反馈

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