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
| Nom |
|---|
| Add |
Propriétés
| Nom |
|---|
| Application |
| Count |
| Élément |
| Parent |
| UniqueID |
Voir aussi
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.