通过

Application.WindowDeactivate 事件 (PowerPoint)

  • 项目

停用应用程序窗口或任意文档窗口时发生此事件。

语法

表达式。WindowDeactivate (Pres、 Wn)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Pres 必需 Presentation 非活动窗口中显示的演示文稿。
Wn 必需 DocumentWindow 非活动文档窗口。

示例

以下示例查找非活动窗口中演示文稿的文件名（不含扩展名）。 然后，它将.htm扩展名追加到文件名，并将其另存为与演示文稿相同的文件夹中的网页。

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

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。