Resources オブジェクト (Project)

Resource オブジェクトのコレクションを格納します。

例

Resources コレクションの使い方

リソース (index) を使用して、index はリソース インデックス番号またはリソース名を使用して、1 つの 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 コレクションの使い方

リソース プロパティを使用して、 リソース のコレクションを取得します。 次の例では、前の例と同じリストが生成されますは、 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

Resource オブジェクトを Resourcesコレクションに追加するには、 Add メソッドを使用します。 次の使用例は、作業中のプロジェクトに、Matilda という名前の新しいリソースを追加します。

ActiveProject.Resources.Add "Matilda"

メソッド

プロパティ

関連項目

Project オブジェクト モデル

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。