Propiedad OverAllocatedAssignments.Item (Project)
Obtiene un único objeto de asignación de la colección OverAllocatedAssignments. Sólo lectura de la asignación.
Sintaxis
expresión. Elemento (índice)
Expresión Expresión que devuelve un objeto "OverAllocatedAssignments".
Parameters
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
Index | Obligatorio | Long | El número de índice de la asignación para devolver. |
Ejemplo:
En el ejemplo siguiente se busca asignaciones donde el recurso está sobreasignado. Cuando el argumento overPeak es False, la sobreasignación no es mayor que el tiempo máximo de recursos disponible (100%). Si overPeak se establece en True, el ejemplo busca sobreasignadas asignaciones que superan el tiempo máximo de recursos disponible, como el 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
Consulte también
Objeto de colección OverAllocatedAssignments
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.