Evento Application.ProjectBeforeClearBaseline (Project)
Ocurre antes de que se borre una línea base. Usa el parámetro del objeto EventInfo.
Sintaxis
expresión. ProjectBeforeClearBaseline( _pj_, _Interim_, _bl_, _InterimFrom_, _AllTasks_, _Info_ )
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| pj | Obligatorio | Project | Proyecto que se muestra en la ventana desactivada. |
| Interim | Obligatorio | Boolean | True si se borra un plan previsto provisional. False si se borra un plan previsto completo. |
| bl | Obligatorio | PjBaselines | La línea de base que está borrando. Puede ser una de las siguientes constantes PjBaselines: pjBaseline, pjBaseline1, pjBaseline2, pjBaseline3, pjBaseline4, pjBaseline5, pjBaseline6, pjBaseline7, pjBaseline8, pjBaseline9 o pjBaseline10. |
| InterimFrom | Obligatorio | PjSaveBaselineTo | El plan previsto provisional que se van a borrar. Puede ser una de las siguientes constantes de PjSaveBaselineTo: pjIntoBaseline, pjIntoBaseline1, pjIntoBaseline2, pjIntoBaseline3, pjIntoBaseline4, pjIntoBaseline5, pjIntoBaseline6, pjIntoBaseline7, pjIntoBaseline8, pjIntoBaseline9, pjIntoBaseline10, pjIntoStart_Finish1, pjIntoStart_Finish2, pjIntoStart_Finish3, pjIntoStart_Finish4, pjIntoStart_Finish5, pjIntoStart_Finish6, pjIntoStart_Finish7, pjIntoStart_Finish8, pjIntoStart_Finish9 o pjIntoStart_Finish10. |
| AllTasks | Obligatorio | Boolean | True si se borra todo el proyecto. |
| Info | Obligatorio | EventInfo | EventInfo.Cancel es False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, no se borra la línea base. |
Valor devuelto
Nothing
Comentarios
Los eventos de proyecto no se producen cuando el proyecto está incrustado en otro documento o aplicación.
Ejemplo:
En el siguiente ejemplo se muestra un cuadro de diálogo que informa al usuario de que está a punto de borrar una línea base del plan del proyecto. El cuadro de mensaje indica la línea base que se va a borrar (de 0 a 10), el nombre de archivo del proyecto y si el plan provisional se ha borrado (True o False).
- Cree un nuevo módulo de clase e inserte el código siguiente:
Public WithEvents pApp As MSProject.Application
Private Sub pApp_ProjectBeforeClearBaseline(ByVal pj As Project, _
ByVal Interim As Boolean, ByVal bl As PjBaselines, _
ByVal InterimFrom As PjSaveBaselineTo, _
ByVal AllTasks As Boolean, ByVal Info As EventInfo)
MsgBox "Click OK to clear the baseline for the following " _
& "project:" & vbCrLf & "Baseline: " & CStr(bl) _
& vbCrLf & "Project: " & pj.Name & vbCrLf _
& "Clear interim plan: " & CStr(Interim)
End Sub
- En otro módulo, inserte el código siguiente:
Public X As New Class1
Sub RunMacros()
Set X.pApp = MSProject.Application
End Sub
Ejecute el procedimiento RunMacros para comenzar a escuchar los eventos.
En el menú Herramientas, elija Seguimiento y haga clic en Borrar línea de base.El evento hará que emerja un cuadro de mensaje cada vez que se borre una línea de base.
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.