Objet SplitParts (Project)
Contient une collection d’objets SplitPart .
Exemple
Utilisation de la collection d'objets SplitParts
Utilisez SplitParts (Index ), oùIndex est le numéro d’index du numéro d’index de la tâche, pour renvoyer un seul objet SplitPart . L'exemple suivant montre comment répertorier les heures de début et de fin de chaque portion de la tâche contenue dans la cellule active.
Dim Part As Long, Portions As String
For Part = 1 To ActiveCell.Task.SplitParts.Count
With ActiveCell.Task
Portions = Portions & "Task portion " & Part & ": Start on " & _
.SplitParts(Part).Start & ", Finish on " & _
.SplitParts(Part).Finish & vbCrLf
End With
Next Part
MsgBox Portions
Utilisation de la collection SplitParts
Utilisez la propriété SplitParts pour renvoyer une collection SplitParts . L’exemple suivant montre comment renvoyer le nombre de portions de la tâche pour chaque tâche du projet actif.
Dim T As Task
For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
MsgBox T.Name & ": " & T.SplitParts.Count
End If
Next T
Utilisez la méthode Split (objet Task ) pour ajouter un objet SplitPart à la collection SplitParts . (La méthode Split crée un fractionnement dans une tâche.) L’exemple suivant crée un fractionnement dans la tâche du mercredi au lundi.
ActiveCell.Task.Split "10/2/02", "10/7/02"
Méthodes
| Nom |
|---|
| Add |
Propriétés
| Nom |
|---|
| Application |
| Count |
| Élément |
| Parent |
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.