包含 Resource 物件的集合。
範例
使用 Resources 集合
使用 Resources (index) ，其中 index 是資源索引號或資源名稱，來回傳單一 Resource 物件。 下列範例會列出使用中專案內的所有資源的名稱。
Dim R As Long, Names As String
For R = 1 To ActiveProject.Resources.Count
Names = ActiveProject.Resources(R).Name & ", " & Names
Next R
Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
MsgBox Names
使用 Resources 集合物件
使用 Resources 屬性可傳回 Resources 集合。 下面範例會產生與前述範例相同的清單，但沒有賣設定 ActiveProject.Resources 、 物件參照，然後使用 R用於 ActiveProject.Resources 。
Dim R As Resources, Temp As Long, Names As String
Set R = ActiveProject.Resources
For Temp = 1 To R.Count
Names = R(Temp).Name & ", " & Names
Next Temp
Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
MsgBox Names
使用 Add 方法將 Resource 物件新增到 Resources 集合。 下列範例會新增新的資源 Matilda 名為使用中專案。
ActiveProject.Resources.Add "Matilda"
方法
| 名稱 |
|---|
| Add |
屬性
| 名稱 |
|---|
| Application |
| 數目 |
| 項目 |
| Parent |
| UniqueID |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。