Compartilhar via

Objeto OverAllocatedAssignments (Project)

  • Artigo

Representa a coleção de Assignment objetos onde o recurso está superalocado.

Comentários

Use a propriedade Item para obter um único objeto Assignment da coleção OverAllocatedAssignments.

Exemplo

O exemplo a seguir localiza atribuições onde o recurso está superalocado. Quando o argumento overPeak for False, a superalocação não for maior do que o tempo de recurso máximo disponível (100%). Se você definir overPeak como True, o exemplo localiza atribuições superalocadas que excedem o tempo de recurso máximo disponível, como 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

Propriedades

Nome
Aplicativo
Count
Item
Responsável
TotalDetectedCount

Confira também

Modelo de objeto do projeto

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.