Событие Application. Пресентатионбефоресаве (PowerPoint)Application.PresentationBeforeSave event (PowerPoint)

Возникает перед сохранением презентации.Occurs before a presentation is saved.

СинтаксисSyntax

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

выражение: переменная, представляющая объект Application.expression A variable that represents an Application object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ПресPres ОбязательныйRequired PresentationPresentation Сохраняемая презентация.The presentation being saved.
ОтменаCancel ОбязательныйRequired ЛогическийBoolean Значение true , чтобы отменить процесс сохранения.True to cancel the save process.

ПримечанияRemarks

Это событие инициируется при появлении диалогового окна " Сохранить как ".This event is triggered as the Save As dialog box appears.

Чтобы получить доступ к событиям приложения , объявите переменную приложения в разделе Общие объявления кода.To access the Application events, declare an Application variable in the General Declarations section of your code. Затем присвойте переменной значение, равное объекту Application , для которого требуется получить доступ к событиям.Then set the variable equal to the Application object for which you want to access events. Сведения об использовании событий с объектом приложения Microsoft PowerPoint приведены в статье как: использование событий с объектом Application.For information about using events with the Microsoft PowerPoint Application object, see How to: Use Events with the Application Object.

ПримерExample

В этом примере проверяется наличие исправлений в презентации и запрашивается, следует ли сохранить презентацию.This example checks if there are revisions in a presentation, and if there are, asks whether to save the presentation. Если ответ пользователя — нет, процесс сохранения отменяется.If a user's response is no, the save process is canceled. В этом примере предполагается, что объект приложения с именем пптапп был объявлен с помощью ключевого слова WithEvents .This example assumes an Application object called PPTApp has been declared by using the WithEvents keyword.

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

См. такжеSee also

Объект ApplicationApplication Object

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

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.