Project.Resource.Overallocated.md

title	ms.service	api_name	ms.assetid	ms.date	ms.localizationpriority
Resource.Overallocated property (Project)	project-server	Project.Resource.Overallocated	4cb06be7-0140-1bd0-3314-2a6b50d5a51b	06/08/2017	medium

Resource.Overallocated property (Project)

True if a resource is overallocated. Read-only Boolean.

Syntax

expression. Overallocated

expression A variable that represents a Resource object.

Remarks

The Overallocated property does not return any meaningful information for material resources.

Example

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

[!includeSupport and feedback]