宣告構成 Property程序主體的名稱、參數與程式碼，該程序會設定物件的參考。
語法
[ 公眾 | 私 | 朋友 ][ 雜訊 ] 屬性集名稱 ( [ arglist ]， 參考文獻 )
[ statements ]
[ 出口物業 ]
[ statements ]
End 屬性
Property Set 語句的語法包含以下部分：
| 部分 | 描述 |
|---|---|
| Optional | 選用。 表示該論點可能由來電者提出，也可能不由。 |
| Public | 選用。 表示 Property Set 程序可被所有 模組中的其他程序存取。 若用於包含 選擇私有 聲明的模組，該程序在 專案外部無法取得。 |
| Private | 選用。 表示 Property Set 程序僅能被宣告的模組中其他程序存取。 |
| Friend | 選用。 僅用於 類別模組。 表示 Property Set 程序在 整個專案中可見，但物件實例的控制器無法看到。 |
| Static | 選用。 表示 Property Set 程序的本地 變數 在呼叫間被保留。 Static 屬性不會影響在 Property Set 程序外宣告的變數，即使它們在程序中使用。 |
| name | 此為必要動作。 屬性集程序名稱;遵循標準變數命名慣例，但名稱可與同一模組中的 Property Get 或 Property Let 程序相同。 |
| arglist | 此為必要動作。 代表參數的變數清單，這些變數在被呼叫時會傳遞給 Property Set 程序。 多個論元以逗號分隔。 |
| reference | 此為必要動作。 包含物件參考指派右側所用物件參考的變數。 |
| 陳述式 | 選用。 在 財產 程序正文中執行的任何一組語句。 |
arglist 引數具有下列語法和部分︰
[ 可選 ][ ByVal | 參考文獻 ][ 參數陣列 ] varname [ ( ) ] [ 類型] [=預設值 ]
| 部分 | 描述 |
|---|---|
| Optional | 選用。 表示引數不是必要的。 若使用， arglist 中所有後續參數也必須為可選，並以 Optional 關鍵字宣告。 請注意， 屬性集表達式 的右側不可能為 可選。 |
| ByVal | 選用。 表示引數以傳值方式傳遞。 |
| ByRef | 選用。 表示引數以傳參考方式傳遞。 ByRef 是 VBA 的預設，與 Visual Basic .NET 不同。 |
| ParamArray | 選用。 僅作為 arglist 的最後一個參數，表示最後一個參數是 Variant 元素的可選陣列。 ParamArray 關鍵字可讓您提供引數的任意數。 它不能搭配 ByVal、 ByRef 或 Optional 一起使用。 |
| varname | 此為必要動作。 代表參數的變數名稱;遵循標準變數命名規則。 |
| type | 選用。 傳遞給程序的參數資料型態;可能包括位元組、布林、整數、長、貨幣、單、雙、十進 (位（目前不支援) ）、日期、字串 (僅支援變長) 、物件、變體或特定物件類型。 若參數非 可選，亦可指定 使用者自訂型別 。 |
| 預設值 | 選用。 任何 常數 或恆定的表達式。 僅適用於 可選 參數。 如果型別是 物件，則明確的預設值只能是 Nothing。 |
注意事項
每個 屬性集 陳述句必須至少定義一個參數來定義其所定義的程序。 當 Property Set 陳述式所定義的程序被呼叫時，該參數 (或最後一個參數（若有多個) 則包含該屬性的實際物件參考。 在前面的語法中稱為 參考（reference ）。 這不可能是 可選的。
註解
若未明確指定為 Public、 Private（私人）或 Friend（Friend）， Property 程序預設為公開。 若未使用 Static ，則呼叫間不保留本地變數的值。
Friend關鍵字只能在職業模組中使用。 然而， Friend 程序可由專案任一模組中的程序存取。 Friend 程序不會出現在其父類別的型別庫中，也不會是遲綁的。
所有可執行程式碼都必須在程序中。 你不能在另一個屬性、子或函式程序中定義一個屬性集程序。
Exit Property 陳述句會立即退出 Property Set 程序。 程式執行會以呼叫 Property Set 程序的陳述句後續進行。 任意數量的 退出屬性 陳述都可以出現在 屬性集 程序的任何地方。
與函 數 與 屬性 Get 程序類似， 屬性集合 程序是一個獨立的程序，可以接收參數、執行一連串陳述，並改變其參數的值。 然而，與 Function 和 Property Get 程序不同，兩者都會回傳值， Property Set 程序只能在物件參考指派或 Set 陳述的左側使用。
範例
本範例使用 Property Set 陳述句來定義一個屬性程序，該程序將物件的參考設定為一個物件。
' The Pen property may be set to different Pen implementations.
Property Set Pen(P As Object)
Set CurrentPen = P ' Assign Pen to object.
End Property
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。