Shape.GetCustomPropertyLinkedColumn 方法 (Visio)

获取链接到形状 ShapeSheet 电子表格中由自定义属性索引指定的形状数据（自定义属性）行的数据列的名称。

注意

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

语法

expression。 GetCustomPropertyLinkedColumn( _DataRecordsetID_ , _CustomPropertyIndex_ )

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

参数

名称	必需/可选	数据类型	说明
DataRecordsetID	必需	Long	包含链接到形状自定义属性的数据列的数据记录集的 ID。
CustomPropertyIndex	必需	Long	链接到数据记录集中的数据列的形状数据项（自定义属性）的索引。

返回值

String

备注

如果方法失败，请调用 Shape.IsCustomPropertyLinked 方法，以确保形状数据项 (自定义属性行) 实际上已链接到数据列。

注意

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

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 GetCustomPropertyLinkedColumn 方法获取链接到特定形状数据项的数据记录集列的名称。

运行此宏之前，请将至少一个数据记录集添加到文档的 DataRecordsets 集合。 该宏将在页面上放置一个形状，将该形状链接到最近添加到集合中的数据记录集中的数据，然后进行测试，以确保链接成功。 如果成功，将在“立即”窗口中输出链接到指定形状数据项（自定义属性）的数据记录集列的名称。

Public Sub GetCustomPropertyLinkedColumn_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim lngIndex As Long 
    Dim strColumnName As String 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    If boolIsLinked Then 
     
        strColumnName = vsoShape.GetCustomPropertyLinkedColumn(vsoDataRecordset.ID, 1) 
        Debug.Print "Linked column name is", strColumnName 
     
    Else 
     
        Debug.Print "Not linked." 
         
    End If 
 
End Sub

支持和反馈

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