在清除比較基準之前發生。 使用 EventInfo 物件參數。
語法
expression。
ProjectBeforeClearBaseline( _pj_, _Interim_, _bl_, _InterimFrom_, _AllTasks_, _Info_ )
expression 代表 Application 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| pj | 必要 | Project | 顯示在停用視窗中的專案。 |
| Interim | 必要 | Boolean | True 是表示 如果清除中期比較基準計劃。 為 false 則清除完整的比較基準計劃。 |
| bl | 必要 | PjBaselines | 會清除比較基準。 可以是下列 PjBaselines 常數之一： pjBaseline 、 pjBaseline1 、 pjBaseline2 、 pjBaseline3 、 pjBaseline4 、 pjBaseline5 、 pjBaseline6 、 pjBaseline7 、 pjBaseline8 、 pjBaseline9 或 pjBaseline10 。 |
| 臨時 | 必要 | 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 。 |
| 全任務 | 必要 | Boolean | True 是表示 如果清除整個專案。 |
| Info | 必要 | EventInfo | 事件發生時數設為 False 。 事件程序會將此引數設定為 True ，如果是不會清除比較基準。 |
傳回值
Nothing
註解
專案事件不會發生在專案嵌入其他文件或應用程式中時。
範例
下列範例會顯示訊息方塊，告知使用者即將要在專案計劃中清除比較基準。 此訊息方塊會指出要清除的比較基準 (從 0 到 10)、專案的檔案名稱，以及是否要清除中期計劃 (True 或 False)。
- 建立新的類別模組，並插入下列程式碼：
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
- 在不同的模組中，插入下列程式碼：
Public X As New Class1
Sub RunMacros()
Set X.pApp = MSProject.Application
End Sub
執行 RunMacros 程序，開始聆聽事件。
在 工具 選單中，指向 追蹤 並點選 清除基線。每當基準線被清除時，事件會跳出一個訊息框。
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。