title | ms.service | api_name | ms.assetid | ms.date | ms.localizationpriority | |
---|---|---|---|---|---|---|
OverAllocatedAssignments.Item property (Project) |
project-server |
|
5939e712-0abd-cb4b-31fe-ad2fa61835d6 |
06/08/2017 |
medium |
Gets a single Assignment object from the OverAllocatedAssignments collection. Read-only Assignment.
expression.Item (Index)
expression An expression that returns an 'OverAllocatedAssignments' object.
Name | Required/Optional | Data type | Description |
---|---|---|---|
Index | Required | Long | The index number of the Assignment to return. |
The following example finds assignments where the resource is overallocated. When the overPeak argument is False, the overallocation is not greater than the maximum resource time available (100%). If you set overPeak to True, the example finds overallocated assignments that exceed maximum resource time available, such as 150%.
Sub FindOverallocatedAssignments()
Dim t As Task
Dim a As Assignment
Dim overAlloc As OverAllocatedAssignments
Dim numOver As Long
Dim i As Long
Dim overPeak As Boolean
overPeak = True
For Each t In ActiveProject.Tasks
If t.Overallocated Then
Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak)
numOver = overAlloc.Count
totalNumOver = overAlloc.TotalDetectedCount
For i = 1 To numOver
Set a = overAlloc.Item(i)
Debug.Print "Task: " & t.Name & " - Overallocated resource: " _
& a.ResourceName
Debug.Print vbTab & "Resource peak: " & a.Peak
Next i
End If
Next t
End Sub
OverAllocatedAssignments Collection Object
[!includeSupport and feedback]