WindowDeactivate Event
TOC
Collapse the table of content
Expand the table of content

Application.WindowDeactivate Event (PowerPoint)

Office 2013 and later
GitHub-Mark-64px

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Occurs when the application window or any document window is deactivated.

expression .WindowDeactivate(Pres, Wn)

expression A variable that represents an Application object.

Parameters

Name

Required/Optional

Data Type

Description

Pres

Required

Presentation

The presentation displayed in the deactivated window.

Wn

Required

DocumentWindow

The deactivated document window.

This example finds the file name (without its extension) for the presentation in the window that is being deactivated. It then appends the .htm extension to the file name and saves it as a Web page 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


Show:
© 2016 Microsoft