Selection.LinkToData 方法 (Visio)

将选定的多个形状链接到数据记录集中的单个数据行。

注意

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

语法

expression. LinkToData( _DataRecordsetID_ , _DataRowID_ , _AutoApplyDataGraphics_ )

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

参数

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

返回值

Nothing

注解

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

如果 Visio 无法在形状和数据行之间建立链接，Visio 将跳过该形状，继续处理选定的下一个形状。 运行 方法后，若要确定所选内容中的所有形状是否实际链接到数据行，请对所选内容中的每个形状调用 Shape.GetLinkedDataRow 方法。 如果对任何形状调用该方法时失败，则表明该形状未链接到相应的数据行。 Visio 通常会成功地将行链接到形状，除非形状已链接到数据，并且数据记录集的链接替换行为设置指定不应替换该链接。

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

示例

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

在运行此宏之前，请在页面上放置多个形状，并将至少一个数据记录集添加到文档的 DataRecordsets 集合。 该宏将使用最近添加到集合中的数据记录集的 ID。 它会将所选的形状链接到数据记录集的第一行中的数据。

Public Sub LinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoSelection As Visio.Selection 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
    vsoSelection.LinkToData vsoDataRecordset.ID, 1, True 
 
End Sub

支持和反馈

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