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

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

Синтаксис

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

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

Параметры

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

Примечания

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

Чтобы получить доступ к событиям Application , объявите переменную Application в разделе General Declarations вашего кода. Затем установите переменную равной объекту Application , для которого вы хотите получить доступ к событиям. Сведения об использовании событий с объектом приложения Microsoft PowerPoint см. в разделе "Инструкции". Использование событий с объектом приложения.

Пример

В этом примере проверяется, есть ли исправления в презентации, и если есть, появляется запрос на сохранение презентации. Если ответ пользователя отрицательный, процесс сохранения отменяется. В этом примере предполагается, что объект приложения с именем 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 и обратная связь.