Shape.IsCustomPropertyLinked 方法 (Visio)

會傳回圖形資料 (自訂屬性) 圖形 ShapeSheet 試算表的 [圖形資料] 區段中的資料列是否連結至指定之資料記錄集中的資料列。

語法

expression。 IsCustomPropertyLinked( _DataRecordsetID_ , _CustomPropertyIndex_ )

表達 會傳回 Shape 物件的運算式。

參數

傳回值

布林值

註解

呼叫 GetCustomPropertyLinkedColumn 方法之前，請先呼叫這個方法，以確保圖形資料項目 (自訂屬性資料列) 實際上已連結至資料行。

了解圖形如何連結到資料，可以避免在重新整理一個或多個資料記錄集內的資料時發生衝突及中斷連結。

範例

下列 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 支援與意見反應。