通过

Application.ProjectBeforeClearBaseline 事件 (Project)

  • 项目

清除比较基准之前发生。 使用 EventInfo 对象参数。

语法

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

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
pj 必需 Project 已停用窗口中显示的项目。
Interim 必需 Boolean 如此 如果清除中期比较基准计划。 假 如果清除完全比较基准计划。
bl 必需 PjBaselines 正在清除的比较基准。 可以是下列的 PjBaselines 常量之一: pjBaseline 、 pjBaseline1 、 pjBaseline2 、 pjBaseline3 、 pjBaseline4 、 pjBaseline5 、 pjBaseline6 、 pjBaseline7 、 pjBaseline8 、 pjBaseline9 或 pjBaseline10 。
InterimFrom 必需 PjSaveBaselineTo 正在清除中期比较基准计划。 可以是下列的 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 或 pjIntoStart_Finish10 。
AllTasks 必需 Boolean 如此 如果清除整个项目。
Info 必需 EventInfo 在事件发生时，EventInfo.Cancel 为 False 。 如果事件过程将此参数设置为 True ，则不会清除比较基准。

返回值

Nothing

备注

当项目嵌入到另一个文档或应用程序中时，不会发生项目事件。

示例

下面的示例显示一个消息框，通知用户将在项目计划中清除比较基准。 消息框会指出正在清除的比较基准（从 0 到 10）、项目的文件名和是否正在清除中期计划（True 或 False）。

  1. 新建类模块并插入下列代码：
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. 在一个独立模块中，插入以下代码：
Public X As New Class1 
Sub RunMacros() 
 Set X.pApp = MSProject.Application 
End Sub

  1. 运行 RunMacros 过程，开始侦听事件。

  2. 在“工具”菜单上，指向“跟踪”并单击“清除比较基准”。每次清除比较基准时，该事件都会弹出消息框。

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。