Upravit

Sdílet prostřednictvím

Application.ProjectBeforeClearBaseline event (Project)

  • Článek

Occurs before a baseline is cleared. Uses the EventInfo object parameter.

Syntax

expression. ProjectBeforeClearBaseline( _pj_, _Interim_, _bl_, _InterimFrom_, _AllTasks_, _Info_ )

expression A variable that represents an Application object.

Parameters

Name Required/Optional Data type Description
pj Required Project The project displayed in the deactivated window.
Interim Required Boolean True if clearing an interim baseline plan. False if clearing a full baseline plan.
bl Required PjBaselines The baseline you are clearing. Can be one of the following PjBaselines constants: pjBaseline, pjBaseline1, pjBaseline2, pjBaseline3, pjBaseline4, pjBaseline5, pjBaseline6, pjBaseline7, pjBaseline8, pjBaseline9, or pjBaseline10.
InterimFrom Required PjSaveBaselineTo The interim baseline plan being cleared. Can be one of the following PjSaveBaselineTo constants: 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, or pjIntoStart_Finish10.
AllTasks Required Boolean True if clearing the entire project.
Info Required EventInfo EventInfo.Cancel is False when the event occurs. If the event procedure sets this argument to True, the baseline is not cleared.

Return value

Nothing

Remarks

Project events don't occur when the project is embedded in another document or application.

Example

The following sample displays a message box informing the user of a baseline clearing about to be made in the project plan. The message box indicates which baseline is being cleared (from 0 to 10), the file name of the project, and whether the interim plan is being cleared (True or False)

  1. Create a new class module, and insert the following code:
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
  1. In a separate module, insert the following code:
Public X As New Class1 
Sub RunMacros() 
 Set X.pApp = MSProject.Application 
End Sub

  1. Run the RunMacros procedure to start listening to the events.

  2. On the Tools menu, point to Tracking and click Clear Baseline.The event causes a message box to pop up every time a baseline is cleared.

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.