通过

Shape.GetLinkedDataRow 方法 (Visio)

  • 项目

获取指定数据记录集中链接到形状的数据行的 ID。

注意

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

语法

expression。 GetLinkedDataRow( _DataRecordsetID_ )

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

参数

名称 必需/可选 数据类型 说明
DataRecordsetID 必需 Long 包含已链接行的数据记录集的 ID。

返回值

Long

备注

如果形状未链接到数据行，GetLinkedDataRow 方法将失败。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 GetLinkedDataRow 方法获取链接到形状的指定数据记录集中的数据行的 ID。

运行此宏之前，请将至少一个数据记录集添加到文档的 DataRecordsets 集合。 该宏将形状拖放到页面上，将该形状链接到最近添加到集合的数据记录集中的数据行，获取该行的 ID，然后在“即时”窗口中打印该行的 ID。

Public Sub GetLinkedDataRow_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim lngRowID As Long 
     
    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 
            
    lngRowID = vsoShape.GetLinkedDataRow(vsoDataRecordset.ID) 
    Debug.Print lngRowID 
         
End Sub

支持和反馈

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