Compartilhar via

Propriedade Assignment.Peak (Project)

  • Artigo

Obtém o maior número de unidades de recurso para a atribuição. Somente leitura Variant.

Sintaxe

expression. Peak

Expressão Uma variável que representa um objeto Assignment .

Exemplo

O exemplo a seguir encontra quaisquer atribuições com mais de um determinado número de unidades de recurso atribuídas.

Sub FindOverassigned() 
 Dim T As Task, A As Assignment 
 Dim TooMany As Double, Results As String 
 
 TooMany = InputBox("Enter maximum allowed units per assignment: ") 
 
 For Each T In ActiveProject.Tasks 
 If Not (T Is Nothing) Then 
 For Each A In T.Assignments 
 If A.Peak > TooMany Then 
 Results = Results & T.Name & ": " & A.ResourceName & vbCrLf 
 End If 
 Next A 
 If Results <> "" Then MsgBox "The following resources are " & _ 
 "assigned more than " & TooMany & " units:" & vbCrLf & Results 
 Results = "" 
 End If 
 Next T 
 
End Sub

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.