通过

Selection.BreakLinkToData 方法 (Visio)

  • 项目

断开所有选定形状与指定数据记录集内数据行之间的链接。

注意

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

语法

expression。 BreakLinkToData( _DataRecordsetID_ )

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

参数

名称 必需/可选 数据类型 说明
DataRecordsetID 必需 Long 数据记录集的 ID，该数据记录集包含要断开其链接的数据行。

返回值

Nothing

注解

如果 Microsoft Visio 无法断开某一选定形状与数据行之间的链接，或者这两者之间不存在链接，Visio 会跳过该形状并转而处理下一个选定形状。 运行 方法后，若要确定所选内容中的任何形状是否仍链接到数据行，请对所选内容中的每个形状调用 Shape.GetLinkedDataRow 方法。 如果任何形状的 GetLinkedDataRow 方法失败，则表示该形状不再链接到数据行，或者从未链接到数据行。

请注意，断开形状与数据之间的链接并不会从形状中删除形状数据（在一些早期版本的 Visio 中称为自定义属性），也不会删除与形状关联的数据图形。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 BreakLinkToData 方法断开选定形状和数据记录集中数据行之间的所有链接。

运行此宏之前，请在页面上放置多个形状，将至少一个数据记录集添加到文档的 DataRecordsets 集合，并使用任何链接方法将多个形状链接到最近添加到集合的数据记录集中的一个或多个数据行。

Public Sub BreakLinkToData_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 
    Call vsoSelection.BreakLinkToData(vsoDataRecordset.ID) 
     
End Sub

支持和反馈

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