Application.ProjectBeforeClearBaseline-Ereignis (Project)

Artikel
04/07/2023

Tritt auf, bevor ein Basisplan gelöscht wird. Verwendet den EventInfo-Objektparameter.

Syntax

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

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
pj	Erforderlich	Project	Das Projekt, das im deaktivierten Fenster angezeigt wird.
Interim	Erforderlich	Boolean	True, Wenn eine vorläufige Basisplan gelöscht. False, Wenn einen vollständiger Basisplan gelöscht.
bl	Erforderlich	PjBaselines	Der Basisplan, den Sie löschen. Kann eine der folgenden PjBaselines -Konstanten sein: PjBaseline, pjBaseline1, pjBaseline2, pjBaseline3, pjBaseline4, pjBaseline5, pjBaseline6, pjBaseline7, pjBaseline8, pjBaseline9 oder pjBaseline10.
InterimFrom	Erforderlich	PjSaveBaselineTo	Die vorläufige Basisplan gelöscht wird. Kann eine der folgenden PjSaveBaselineTo -Konstanten sein: 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, oder pjIntoStart_Finish10.
AllTasks	Erforderlich	Boolean	True, Wenn das gesamte Projekt gelöscht.
Info	Erforderlich	EventInfo	EventInfo.Cancel ist False, wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festgelegt wird, wird der Basisplan nicht gelöscht.

Rückgabewert

Nothing

Hinweise

Projektereignisse treten nicht auf, wenn das Projekt in ein anderes Dokument oder eine andere Anwendung eingebettet ist.

Beispiel

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)

Erstellen Sie ein neues Klassenmodul, und fügen Sie folgenden Code ein:

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

Fügen Sie in ein separates Modul den folgenden Code ein:

Public X As New Class1 
Sub RunMacros() 
 Set X.pApp = MSProject.Application 
End Sub

Run the RunMacros procedure to start listening to the events.
Zeigen Sie im Menü Extras auf Überwachung, und klicken Sie auf Basisplan löschen.Das Ereignis bewirkt, dass bei jedem Löschen eines Basisplans ein Meldungsfeld angezeigt wird.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über