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

Возникает перед сохранением любой открытой презентации.Occurs before any open presentation is saved.

СинтаксисSyntax

выражение.expression. PresentationSave( _Pres_ )

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

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ПресPres ОбязательныйRequired PresentationPresentation Презентация, которую необходимо сохранить.The presentation to be saved.

ПримечанияRemarks

Сведения об использовании событий с объектом Application можно узнать в статье как: использование событий с объектом Application.For information about using events with the Application object, see How to: Use Events with the Application Object.

ПримерExample

В этом примере текущая презентация сохраняется в виде HTML-файла версии 4,0 с именем "Маллард. htm".This example saves the current presentation as an HTML version 4.0 file with the name "mallard.htm." После этого отображается сообщение о том, что текущая именованная презентация сохраняется как в формате PowerPoint, так и в формате HTML.It then displays a message indicating that the current named presentation is being saved in both PowerPoint and HTML formats.

Private Sub App_PresentationSave(ByVal Pres As Presentation)
    With Pres.PublishObjects(1)

        PresName = .SlideShowName
        .SourceType = ppPublishAll
        .FileName = "C:\HTMLPres\mallard.htm"
        .HTMLVersion = ppHTMLVersion4

        MsgBox ("Saving presentation " & "'" _
            & PresName & "'" & " in PowerPoint" _
            & Chr(10) & Chr(13) _
            & " format and HTML version 4.0 format")
            
        .Publish
    End With
End Sub

См. такжеSee also

Объект ApplicationApplication Object

Поддержка и обратная связь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.