通过

Shape.GetLinkedDataRecordsetIDs 方法 (Visio)

  • 项目

获取包含链接到形状的数据行的所有数据记录集的 ID。

注意

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

语法

expression。 GetLinkedDataRecordsetIDs( _DataRecordsetIDs()_ )

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

参数

名称 必需/可选 数据类型 说明
DataRecordsetIDs () 必需 Long 输出参数。 一个由数据记录集的 ID 组成的数组，这些数据记录集中包含链接到形状的数据行。

返回值

Nothing

注解

为 DataRecordsetIDs() 参数传递一个 Long 类型的无量纲空数组，该方法将使用包含链接到形状的数据行的数据记录集的 ID 来填充此数组。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 GetLinkedDataRecordsetIDs 方法获取包含链接到形状的数据行的所有数据记录集的 ID。

运行此宏之前，请将至少两个数据记录集添加到文档的 DataRecordsets 集合。 该宏将形状拖放到绘图页上，将形状链接到最近添加到集合的两个数据记录集中的数据，然后在“即时”窗口中打印 由 GetLinkedDataRecordsetIDs 方法返回的链接数据记录集的 ID。

Public Sub GetLinkedDataRecordsetIDs_Example() 
 
    Dim vsoDataRecordset1 As Visio.DataRecordset 
    Dim vsoDataRecordset2 As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim alngDataRecordsetIDs() As Long 
    Dim intArrayIndex As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset1 = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoDataRecordset2 = Visio.ActiveDocument.DataRecordsets(intCount - 1) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
         
    vsoShape.LinkToData vsoDataRecordset1.ID, 1, True 
    vsoShape.LinkToData vsoDataRecordset2.ID, 2, True 
         
    vsoShape.GetLinkedDataRecordsetIDs alngDataRecordsetIDs 
         
    For intArrayIndex = LBound(alngDataRecordsetIDs) To UBound(alngDataRecordsetIDs) 
        Debug.Print alngDataRecordsetIDs(intArrayIndex) 
    Next 
         
End Sub

支持和反馈

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