Propiedad Assignment.Peak (Project)

Obtiene el mayor número de unidades de recursos para la asignación. Variant de solo lectura.

Sintaxis

expresión. Peak

expresión Variable que representa un objeto Assignment .

Ejemplo

En el ejemplo siguiente se buscan las asignaciones que tengan más de cierto número de unidades de recursos asignadas.

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

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.