Событие Application.PresentationBeforeSave (PowerPoint)

Происходит перед сохранением презентации.

Синтаксис

выражение. PresentationBeforeSave( _Pres_, _Cancel_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Пре	Обязательный	Presentation	Сохраненная презентация.
Отмена	Обязательный	Boolean	Значение true , чтобы отменить процесс сохранения.

Замечания

Это событие активируется при появлении диалогового окна Сохранить как .

Чтобы получить доступ к событиям приложения , объявите переменную Application в разделе Общие объявления кода. Затем задайте переменную, равную объекту Application , для которого требуется получить доступ к событиям. Сведения об использовании событий с объектом Приложения Microsoft PowerPoint см. в разделе Практическое руководство. Использование событий с объектом приложения.

Пример

В этом примере проверяется, есть ли в презентации изменения, и если они есть, запрашивается, следует ли сохранить презентацию. Если ответ пользователя — нет, процесс сохранения отменяется. В этом примере предполагается, что объект Application с именем PPTApp объявлен с помощью ключевое слово WithEvents.

Private Sub PPTApp_PresentationBeforeSave(ByVal Pres As Presentation, _
        Cancel As Boolean)

    Dim intResponse As Integer

    Set Pres = ActivePresentation

    If Pres.HasRevisionInfo Then

        intResponse = MsgBox(Prompt:="The presentation contains revisions. " & _
            "Do you want to accept the revisions before saving?", Buttons:=vbYesNo)

        If intResponse = vbYes Then

            Cancel = True

            MsgBox "Your presentation was not saved."

        End If

    End If

End Sub

См. также

Объект Application

Автосохранение

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

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