Событие Application.ProjectBeforeClearBaseline (Project)

Статья
04/07/2023

Происходит до очистки базового плана. Использует параметр объекта EventInfo .

Синтаксис

выражение. ProjectBeforeClearBaseline( _pj_, _Interim_, _bl_, _InterimFrom_, _AllTasks_, _Info_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Pj	Обязательный	Проект	Проект, отображаемый в деактивированном окне.
Временные	Обязательный	Boolean	Значение True при очистке промежуточного базового плана. False при очистке полного базового плана.
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	Значение True при очистке всего проекта.
Информация	Обязательный	EventInfo	EventInfo.Cancel имеет значение 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 и обратная связь.

Поделиться через