DataColumn.SetProperty 方法 (Visio)

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

注意事項

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

語法

運算式。SetProperty (屬性、 值)

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

參數

名稱	必要/選用	資料類型	描述
屬性	必要	VisDataColumnProperties	要設定其值的資料行屬性。 See Remarks for possible values.
值	必要	Variant	用於指派資料欄屬性的值。 See Remarks for possible values.

傳回值

無

註解

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

注意事項

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

資料行屬性會將資料行對應至 ShapeSheet [圖形資料] 區段中的特定儲存格。 例如，藉由傳遞SetProperty方法以列舉值visDataColumnPropertyDisplayName表示之DisplayName屬性的新值，您可以在 ShapeSheet 的 Shape Data 區段中，為特定圖形資料項目設定 Label 儲存格的值。

此外，設定該屬性會設定 [圖形資料] 對話方塊中圖形資料項的標籤，以及在 Visio 使用者介面的 [外部資料] 視窗中顯示的資料行名稱。 這些設定會對應至您可以在 Visio 使用者接口的 [資料行設定] 對話方塊中設定的設定， (在 [外部資料] 視窗中按一下滑鼠右鍵，然後按一下 [資料行設定]) ，以及您可以在 [類型] 和 [單位] 對話方塊中為每個資料行建立的設定， (按一下 [資料行設定] 對話方塊中的資料類型) 。

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

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

Value 參數的可用值根據 Property 參數值而定。 下表顯示每個資料行屬性的有效資料行屬性值，視資料行資料類型而定。

資料行屬性	數字	日期	貨幣	持續時間	字串	布林值
常數	visPropTypeNumber	visPropTypeDate	visPropTypeCurrency	visPropTypeDuration	visPropTypeString	visPropTypeBoolean
Visible	布林值	布林值	布林值	布林值	布林值	布林值
DisplayName	字串	字串	String	String	字串	String
LangID	有效 LCID 編號
貨幣			有效的 3 個字母貨幣常數字串，如 Visio ShapeSheet 試算表的 CY 函數中所用。
行事曆		VisCellVals的其中一個成員，根據 LangID 值 (請參閱下表) 。
Units	下列其中一個 VisUnitsCodes 成員： visAcre visAngleUnits visCentimeters vis並行 visAsseerosAndDidots visDegreeMinSec visDegrees visDrawingUnits visFeet visFeetAndInches visHectare visDidots visInches visInchFrac visKilometers visMeters visMileFrac visMiles visMillimeters visMin visNautMiles visPageUnits visPicas visPicasAndPoints visPoints visRadians visSec visYards visNumber (特殊行為：此常數會讓值成為無單位) OR 描述性字串：用於單位的字串，例如 cm 或 sq cm。此字串將會經過驗證，使其成為其中一個支援的 Visio 單位。 若傳送無效的字串，將導致此方法失敗。			下列其中一個 VisUnitsCodes 成員： visDurationUnits visElapsedDay visElapsedHour visElapsedMin visElapsedSec visElapsedWeek OR 描述性字串：用於 ew等單位的字串。 此字串將經過驗證而成為其中一個受支援的 Visio 單位。 若傳送無效的字串，將導致此方法失敗。
連結					布林值

LangID 與 Calendar 屬性會以下表所示的驗證規則相繫結。 未顯示的語言只能使用西曆。

語言	平字	西方	法文音譯	英文音譯	希伯來陰曆	塞迦曆	日本天皇時代	朝鮮檀紀曆	泰曆
所有阿拉伯文	x	x	x	x
孟加拉國 ()	x	x
Divehi	x	x
所有英文	x	x			x	x
波斯文	x	x
希伯來文	x				x
印度文	x					x
日文		x					x
韓文		x						x
喀什米爾文 (阿拉伯)	x	x
旁遮普文 (巴基斯坦)	x	x
普什圖文	x	x
信德文	x	x
泰文
烏都文	x	x
Tamzight	x	x

範例

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

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

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

 
Public Sub SetProperty_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 支援與意見反應。