通过

SplitParts Collection Object

  • 项目
Project Developer Reference

Contains a collection of SplitPart objects.

Example

Using the SplitParts Collection Object

Use SplitParts(Index), where Index is the index number of the task index number, to return a single SplitPart object. The following example lists the start and finish times of each task portion of the task in the active cell.

Visual Basic for Applications 
  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

Using the SplitParts Collection

Use the SplitParts property to return a SplitParts collection. The following example returns the number of task portions for each task in the active project.

Visual Basic for Applications 
  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

Use the Split method (Task object) to add a SplitPart object to the SplitParts collection. (The Split method creates a split in a task.) The following example creates a split in the task from Wednesday to Monday.

Visual Basic for Applications 
  ActiveCell.Task.Split "10/2/02", "10/7/02"

See Also