Objeto OverAllocatedAssignments (Project)

Representa una colección de objetos Assignment en la que el recurso está sobreasignado.

Observaciones

Utilice la propiedad Item para obtener un solo objeto de asignación de la colección de OverAllocatedAssignments.

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 overPeak As Boolean  
  
    overPeak = False  
  
    For Each t In ActiveProject.Tasks  
        If t.Overallocated Then  
            Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak)  
            numOver = overAlloc.Count  
            totalNumOver = overAlloc.TotalDetectedCount  
  
            For Each a In overAlloc  
                Debug.Print "Resource: " & a.Resource.Name & " is overallocated on task: " & t.Name  
                Debug.Print vbTab & "Number of overallocated assignments: " & numOver  
            Next a  
        End If  
    Next t  
End Sub

Propiedades

Vea también

Modelo de objetos de Project

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.