通过

Shape.BreakLinkToData 方法 (Visio)

  • 项目

断开形状与其链接到的指定数据记录集中的数据行之间的链接。

注意

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

语法

expression。 BreakLinkToData( _DataRecordsetID_ )

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

参数

名称 必需/可选 数据类型 说明
DataRecordsetID 必需 Long 包含形状所链接到的数据行的数据记录集的 ID。

返回值

Nothing

注解

断开形状与数据行之间的链接并不会从形状中删除形状数据（在 Visio 以前的一些版本中被称为自定义属性），也不会删除与该形状关联的任何数据图形。

示例

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

在运行此宏之前，请在页面上放置一个形状，将至少一个数据记录集添加到文档的 DataRecordsets 集合，并使用任何链接方法将该形状链接到最近添加到集合的数据记录集中的数据行。 或者，可以通过从“外部数据”窗口将数据行拖动到 Visio 用户界面中的形状上，将该形状链接到此数据行。 然后选择链接的形状。

Public Sub BreakLinkToData_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 = ActiveWindow.Selection.PrimaryItem 
    vsoShape.BreakLinkToData (vsoDataRecordset.ID) 
    
End Sub

支持和反馈

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