Objet Resources (Project)

Article
04/07/2023

Contient une collection d’objets Resource .

Exemple

Utilisation de la collection Resources

Utilisez Resources (index), où index est le numéro d’index de ressource ou le nom de la ressource, pour renvoyer un seul objet Resource . L'exemple suivant montre comment répertorier le nom de toutes les ressources du projet actif.

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

Utilisation de la collection Resources

Utilisez la propriété Resources pour renvoyer une collection Resources . L’exemple suivant génère la même liste que l’exemple précédent, mais il le fait en définissant une référence d’objet sur ActiveProject.Resources , puis en utilisant R où ActiveProject.Resources est utilisé.

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

Utilisez la méthode Add pour ajouter un objet Resource à la collection Resources . L’exemple suivant montre comment ajouter au projet actif une nouvelle ressource appelée Matilda.

ActiveProject.Resources.Add "Matilda"

Méthodes

Nom
Add

Propriétés

Nom
Application
Count
Élément
Parent
UniqueID

Voir aussi

Modèle objet Project

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.