Objet Tasks (Project)
Contient une collection d’objets Task .
Exemple
Utilisation de l'objet Task
Utilisez Tasks (index), où index est le numéro d’index de la tâche ou le nom de la tâche, pour renvoyer un seul objet Task . L'exemple suivant montre comment imprimer le nom de chaque ressource affectée à une tâche dans le projet actif.
Dim Temp As Long, A As Assignment
Dim TaskName As String, Assigned As String, Results As String
For Temp = 1 To ActiveProject.Tasks.Count
TaskName = "Task: " & ActiveProject.Tasks(Temp).Name & vbCrLf
For Each A In ActiveProject.Tasks(Temp).Assignments
Assigned = A.ResourceName & ListSeparator & " " & Assigned
Next A
Results = Results & TaskName & "Resources: " & _
Left$(Assigned, Len(Assigned) - Len(ListSeparator & " ")) & vbCrLf & vbCrLf
TaskName = ""
Assigned = ""
Next Temp
MsgBox Results
Utilisez la propriété Tasks pour renvoyer une collection Tasks . L’exemple suivant montre comment afficher le nom de chaque tâche de la sélection.
Dim T As Task, Names As String
For Each T In ActiveSelection.Tasks
Names = Names & T.Name & vbCrLf
Next T
MsgBox Names
Utilisez la méthode Add pour ajouter un objet Task à la collection Tasks . L’exemple suivant montre comment ajouter une nouvelle tâche à la fin de la liste des tâches.
ActiveProject.Tasks.Add "Hang clocks"
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.