Compartir por


Propiedad Resource.Overallocated (Project)

True si un recurso está sobreasignado. Boolean de solo lectura.

Sintaxis

expresión. Overallocated

expresión Variable que representa un objeto Resource .

Observaciones

La propiedad Overallocated no devuelve ninguna información significativa para recursos materiales.

Ejemplo

En el siguiente ejemplo, se muestra el porcentaje de recursos del proyecto activo que se hallan sobreasignados.

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

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.