Propiedad Project.LevelFromDate (Project)

Obtiene o establece la fecha de inicio de un rango en el que se redistribuyen los recursos sobreasignados. El valor predeterminado es el comienzo del proyecto fecha o el último valor de fecha especificada. Variante de lectura y escritura.

Sintaxis

expresión. LevelFromDate

expresión Variable que representa un objeto Project .

Observaciones

También puede establecer la propiedad LevelFromDate en el cuadro de diálogo Redistribuir recursos. Para obtener acceso a la configuración, haga clic en Opciones de redistribución, en la ficha de recurso de la cinta de opciones y, a continuación, haga clic en la opción de nivel y establecer la fecha de.

Ejemplo

En el ejemplo siguiente se permite al usuario cambiar la fecha del intervalo de redistribución si el intervalo actual comienza en la fecha de comienzo del proyecto o finaliza en la fecha de fin del proyecto.

Sub ChangeLevelingDates() 
 Dim Response As Long 
 Dim NewFrom As Variant, NewTo As Variant 
 
 With ActiveProject 
 If Application.DateDifference(.ProjectSummaryTask.Start, .LevelFromDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled from " & _ 
 "the project start date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewFrom = InputBox("Date to level from: ") 
 .LevelFromDate = NewFrom 
 Else 
 MsgBox "Resources remain leveled from the project start date." 
 End If 
 End If 
 
 If Application.DateDifference(.ProjectSummaryTask.Finish, .LevelToDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled to " & _ 
 "the project finish date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewTo = InputBox("Date to level to: ") 
 .LevelToDate = NewTo 
 Else 
 MsgBox "Resources remain leveled to the project finish date." 
 End If 
 End If 
 End With 
 
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.