Freigeben über


Resources-Objekt (Project)

Enthält eine Auflistung von Resource -Objekten.

Beispiel

Verwenden der Resources-Auflistung

Verwenden Sie Ressourcen (Index), wobei index die Ressourcenindexnummer oder der Ressourcenname ist, um ein einzelnes Resource-Objekt zurückzugeben. Das folgende Beispiel listet die Namen aller Ressourcen des aktiven Projekts.

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

Verwenden der Resources-Auflistung

Verwenden Sie die Resources -Eigenschaft, um eine Resources -Auflistung zurückzugeben. Im folgenden Beispiel wird die gleiche Liste wie im vorherigen Beispiel generiert, aber geschieht indem Sie einen Objektverweis zu ActiveProject.Resources festlegen und dann RActiveProject.Resources verwendet wird.

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

Verwenden Sie die Add -Methode der Resources -Auflistung ein Resource -Objekt hinzu. Das folgende Beispiel fügt eine neue Ressource mit dem Namen Matilda auf das aktive Projekt hinzu.

ActiveProject.Resources.Add "Matilda"

Methoden

Name
Add

Eigenschaften

Name
Anwendung
Count
Element
Parent
UniqueID

Siehe auch

Project-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.