Resource.Overallocated property (Project)
True if a resource is overallocated. Read-only Boolean.
expression A variable that represents a Resource object.
The Overallocated property does not return any meaningful information for material resources.
The following example displays the percentage of resources in the active project that are overallocated.
Sub DisplayOverallocatedPercentage() Dim R As Resource ' Resource object used in For Each loop Dim NOverallocated As Long ' Number of overallocated resources For Each R In ActiveProject.Resources If R.Overallocated Then NOverallocated = NOverallocated + 1 Next R MsgBox (Str$((NOverallocated / ActiveProject.Resources.Count) * 100) _ & " percent (" & Str$(NOverallocated) & "/" & Str$(ActiveProject.Resources.Count) _ & ")" & " of the resources in this project are overallocated.") 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.