Visio) (Shape.GetCustomPropertyLinkedColumn 方法

會取得圖形中圖形資料 (自訂屬性) 列所連結的資料欄名稱，而該圖形的 ShapeSheet 試算表是由自訂屬性索引所指定。

注意事項

This Visio object or member is available only to licensed users of Visio Professional 2013.

語法

expression。 GetCustomPropertyLinkedColumn( _DataRecordsetID_ , _CustomPropertyIndex_ )

運算式 傳回 Shape 物件的運算式。

參數

名稱	必要/選用	資料類型	描述
DataRecordsetID	必要	Long	包含連結至圖形自訂屬性之資料欄的資料記錄集識別碼。
CustomPropertyIndex	必要	Long	連結至資料記錄集中資料欄之圖形資料項目 (自訂屬性) 的索引。

傳回值

字串

註解

如果方法失敗，請呼叫 Shape.IsCustomPropertyLinked 方法，以確保圖形資料項目 (自訂屬性列) 確實連結到資料行。

注意事項

在一些舊版的 Visio 中，「圖形資料」是稱為「自訂屬性」。

範例

下列 Microsoft Visual Basic for Applications (VBA) 巨集會示範如何使用 GetCustomPropertyLinkedColumn 方法，來取得連結至特定圖形資料項目之資料記錄集資料欄的名稱。

執行此巨集之前，請至少將一個資料記錄集新增至文件的 DataRecordsets 集合。 巨集會將圖形拖放到頁面上，將圖形連結至最近新增至集合的資料記錄組中的資料，然後測試以確保連結成功。 如果是，它會在 [立即] 視窗中列印連結至指定圖形資料項目的資料記錄集資料行名稱 (自訂屬性) 。

Public Sub GetCustomPropertyLinkedColumn_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim lngIndex As Long 
    Dim strColumnName As String 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    If boolIsLinked Then 
     
        strColumnName = vsoShape.GetCustomPropertyLinkedColumn(vsoDataRecordset.ID, 1) 
        Debug.Print "Linked column name is", strColumnName 
     
    Else 
     
        Debug.Print "Not linked." 
         
    End If 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。