DataColumn.GetProperty 方法 (Visio)

會取得指定之資料欄屬性的值。

注意事項

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

語法

運算式。GetProperty (屬性)

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

參數

名稱	必要/選用	資料類型	描述
屬性	必要	VisDataColumnProperties	要取得的資料欄屬性。 See Remarks for possible values.

傳回值

Variant

註解

將 Microsoft Visio 繪圖中的圖形連結到資料記錄集中的資料時，Visio 會將資料記錄集中的資料欄對應到 ShapeSheet 試算表 [圖形資料] 區段中的資料列 (每一列對應到一個圖形資料項目)。

注意事項

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

資料行屬性會將資料行對應至 ShapeSheet [圖形資料] 區段中的特定儲存格。 例如，藉由傳遞GetProperty方法以列舉值visDataColumnPropertyDisplayName表示的DisplayName屬性，您可以在 ShapeSheet 的 Shape Data 區段中取得特定圖形資料項目的 Label 儲存格值。 此外，該屬性會設定 [圖形資料] 對話方塊中圖形資料項的標籤，以及 Visio 使用者介面中 [外部資料] 視窗中顯示的資料行名稱。

Property 參數的可能值是在 VisDataColumnProperties 中宣告的，下表顯示這些值。

常數	值	描述
visDataColumnPropertyCalendar	3	資料欄屬性的行事曆。
visDataColumnPropertyCurrency	5	資料欄屬性的貨幣。
visDataColumnPropertyDisplayName	6	資料欄屬性在 UI 中的顯示名稱。
visDataColumnPropertyHyperlink	8	將資料欄的值連結到圖形後，這個值是否會變成 Visio UI 中的超連結。
visDataColumnPropertyLangID	2	資料欄屬性的語言識別碼。
visDataColumnPropertyType	1	資料欄屬性的類型。
visDataColumnPropertyUnits	4	資料欄屬性的單位。
visDataColumnPropertyVisible	7	資料欄屬性是否顯示在 UI 中。

範例

下列 Microsoft Visual Basic for Applications (VBA) 宏會示範如何使用 GetProperty 方法，針對傳遞至 方法之記錄集中的第一個資料行，取得 [圖形資料] 區段中 Label 儲存格的值，並將其顯示在 [即時運算] 視窗中。 然後，它會使用 SetProperty 方法來設定值，並顯示新的值。 變更此值會針對連結至資料記錄集中資料列的所有圖形，變更 [圖形資料] 對話方塊中圖形資料項目的標籤。

為了取得及設定 Label 儲存格的值，巨集會將 visDataColumnPropertyDisplayName 值從 VisDataColumnProperties 列舉傳遞到 DataColumn.GetProperty 和 DataColumn.SetProperty 方法。

執行此巨集之前，必須先在您的 VBA 專案中至少建立一個要傳遞至巨集的資料記錄集。

 
Public Sub GetProperty_Example(vsoDataRecordset As Visio.DataRecordset) 
    Dim strPropertyName As String 
    Dim strNewName As String 
    Dim vsoDataColumn As Visio.DataColumn 
 
    strNewName = "New Property Name" 
    Set vsoDataColumn = vsoDataRecordset.DataColumns(1) 
 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
 
    vsoDataColumn.SetProperty visDataColumnPropertyDisplayName, strNewName 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
End Sub

支援和意見反應

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