通过

Shape.LinkToData 方法 (Visio)

  • 项目

将形状链接到数据记录集中的数据行。

注意

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

语法

expression. LinkToData( _DataRecordsetID_ , _RowID_ , _AutoApplyDataGraphics_ )

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

参数

名称 必需/可选 数据类型 说明
DataRecordsetID 必需 Long 包含要链接到的数据的数据记录集的 ID。
RowID 必需 Long 数据记录集中包含要链接到的特定数据记录的行的 ID。
AutoApplyDataGraphics 可选 Boolean 是否自动将数据图形应用到链接的形状。 有关详细信息，请参阅“注解”。

返回值

Nothing

注解

Shape.LinkToData 方法的作用与 Selection 对象的同一个方法 (Selection.LinkToData) 的作用非常类似，不过前者是将单个形状（而不是选定的多个形状）链接到单个数据行。

如果为 AutoApplyDataGraphics 参数传递 True，Microsoft Visio 会向调用该方法前已经应用了数据图形的形状再次应用现有的数据图形。 对于之前不具有数据图形的形状，Visio 会应用最近应用到当前文档中的任何其他形状的数据图形。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 LinkToData 方法将形状链接到数据行。

运行此宏之前，请将至少一个数据记录集添加到文档的 DataRecordsets 集合。 该宏将使用最近添加到集合中的数据记录集的 ID。 它会在页面上绘制一个矩形形状，并将其链接到数据记录集的第一行中的数据，同时将默认数据图形应用于该形状。

Public Sub LinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 5, 5) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
 
End Sub

支持和反馈

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