Событие Application. Виндовдеактивате (PowerPoint)Application.WindowDeactivate event (PowerPoint)

Возникает при отключении окна приложения или любого окна документа.Occurs when the application window or any document window is deactivated.

СинтаксисSyntax

Expression. Виндовдеактивате (Прес, ВН)expression.WindowDeactivate (Pres, Wn)

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

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ПресPres ОбязательныйRequired PresentationPresentation Презентация, отображаемая в отключенном окне.The presentation displayed in the deactivated window.
ВНWn ОбязательныйRequired DocumentWindowDocumentWindow Окно деактивированного документа.The deactivated document window.

ПримерExample

В этом примере выполняется поиск имени файла (без расширения) для презентации в отключенном окне.This example finds the file name (without its extension) for the presentation in the window that is being deactivated. После этого расширение htm добавляется в имя файла и сохраняется в виде веб-страницы в той же папке, что и презентация.It then appends the .htm extension to the file name and saves it as a webpage in the same folder as the presentation.

Private Sub App_WindowDeactivate (ByVal Pres As Presentation, ByVal Wn As DocumentWindow)

    FindNum = InStr(1, Wn.Presentation.FullName, ".")

    If FindNum = 0 Then

        HTMLName = Wn.Presentation.FullName & ".htm"

    Else

        HTMLName = Mid(Wn.Presentation.FullName, 1, FindNum - 1) _
            & ".htm"

    End If

    Wn.Presentation.SaveCopyAs HTMLName, ppSaveAsHTML

    MsgBox "Presentation being saved in HTML format as " _
        & HTMLName & " ."

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.