Objet Resources (Project)

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

Propriétés

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.