共用方式為

DataColumn.GetProperty method (Visio)

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

注意事項

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

語法

表情。GetProperty (Property)

詞 一個回傳 DataColumn 物件的表達式。

參數

名稱 必要/選用 資料類型 描述
屬性 必要 VisDataColumnProperties 要取得的資料欄屬性。 關於可能的數值，請參見 備註 。

傳回值

Variant

註解

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

注意事項

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

資料欄位屬性會將資料欄位映射到 ShapeSheet 的 Shape Data 區塊中的特定儲存格。 例如，透過將 GetProperty 方法傳入 DisplayName 屬性，該屬性由列舉值 visDataColumnPropertyDisplayName 表示，你可以取得 ShapeSheet 中 Shape Data 區塊中特定形狀資料項目 Label 儲存格的值。 此外，該屬性會在 Shape Data 對話框中設定 shape 資料項目的標籤，以及 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 方法取得資料記錄集第一欄 Shape Data 區塊中 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 支援與意見反應。

  • Last updated on