通过

Shape.IsCustomPropertyLinked 方法 (Visio)

  • 项目

返回形状的 ShapeSheet 电子表格的“形状数据”部分中的形状数据 (自定义属性) 行是否链接到指定数据记录集中的数据行。

注意

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

语法

expression。 IsCustomPropertyLinked( _DataRecordsetID_ , _CustomPropertyIndex_ )

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

参数

名称 必需/可选 数据类型 说明
DataRecordsetID 必需 Long 包含数据行的数据记录集的 ID。
CustomPropertyIndex 必需 Long 形状数据（自定义属性）行在形状的 ShapeSheet 的“形状数据”内容中的索引。

返回值

布尔值

备注

在调用 GetCustomPropertyLinkedColumn 方法之前调用此方法，以确保自定义属性行 (形状数据项) 实际链接到数据列。

注意

在 Visio 以前的一些版本中，形状数据被称为自定义属性。

了解形状如何链接到数据，可以帮助防止刷新一个或多个数据记录集中的数据时出现冲突和断开的链接。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 IsCustomPropertyLinked 方法确定形状的自定义属性行是否链接到数据记录集中的数据行。

运行此宏之前，请将至少一个数据记录集添加到文档的 DataRecordsets 集合。 该宏将放置一个形状，然后测试该形状的第一个形状数据项是否已链接到最近添加到集合中的数据记录集中的数据行，并将结果输出到“立即”窗口中。 测试将失败，因为该形状尚未链接到数据。 然后将形状链接到最近添加的数据记录集中的数据，并再次运行测试。

Public Sub IsCustomPropertyLinked_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
End Sub

支持和反馈

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