Resource.Level method (Project)
Levels the resource.
expression A variable that represents a Resource object.
The following example levels the resources of the selected tasks.
Sub LevelResourcesInSelectedTasks() Dim T As Task ' Task object used in For Each loop Dim A As Assignment ' Assignment object used in For Each loop For Each T In ActiveSelection.Tasks For Each A In T.Assignments If ActiveProject.Resources(A.ResourceID).Overallocated Then ActiveProject.Resources(A.ResourceID).Level End If Next A Next T End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.