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

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

Синтаксис

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

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

Параметры

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

2. В отдельный модуль вставьте следующий код:

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

3. Запустите процедуру RunMacros, чтобы начать прослушивание событий.

4. В меню Сервис наведите указатель мыши на пункт Отслеживание и выберите пункт Очистить базовый план. Это событие приводит к появлению окна сообщения при каждой очистке базового плана.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.