通过

Page.GetShapesLinkedToData 方法 (Visio)

  • 项目

返回由活动页上链接到指定数据记录集中的数据的所有形状组成的数组。

注意

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

语法

expression。 GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

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

参数

名称 必需/可选 数据类型 说明
DataRecordsetID 必需 Long 当前文档中包含的数据记录集的 ID。
ShapeIDs () 必需 Long out 参数。 类型为 Long 的数组，该方法将返回该数组，其中包含链接到 DataRecordsetID 中指定的数据记录集的页面上的形状 ID。

返回值

Nothing

注解

为 ShapeIDs() 参数传递 Long 类型的无量纲空数组。 如果页面上没有链接的形状，GetShapesLinkedToData 将返回空数组。

若要确定数据记录集形状中链接到的特定数据行，请使用 Page.GetShapesLinkedToDataRow 方法。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 GetShapesLinkedToData 方法来确定页面上链接到特定数据的形状的形状 ID，该数据位于最近添加到当前文档的 DataRecordsets 集合中的数据记录集中。 将在“立即”窗口中输出形状 ID。

在运行此宏之前，请使用 DataRecordsets.Add 方法或其他方法将至少一个数据记录 集添加到 DataRecordsets 集合，并确保活动页上至少有一个形状链接到数据记录集中的数据。

Public Sub GetShapesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
    Dim alngShapeIDs() As Long 
    Dim intArrayCounter As Integer 
     
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    ActivePage.GetShapesLinkedToData vsoDataRecordset.ID, alngShapeIDs 
     
    For intArrayCounter = LBound(alngShapeIDs) To UBound(alngShapeIDs) 
        Debug.Print alngShapeIDs(intArrayCounter) 
    Next 
     
End Sub

支持和反馈

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