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

Происходит до сохранения любой открытой презентации.

Синтаксис

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

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

Параметры

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

Примечания

Сведения об использовании событий с объектом приложения см. в разделе "Инструкции". Использование событий с объектом приложения.

Пример

В этом примере текущая презентация сохраняется как HTML-файл версии 4.0 с именем "mallard.htm". Затем отображается сообщение о том, что текущая именованная презентация сохраняется в форматах PowerPoint и HTML.

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

См. также

Объект Application

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

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