PowerPoint VBA教程:WindowDeactivate事件

当对应用程序窗口或任意文档窗口取消活动状态时发生此事件。

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

application   Application 类型的对象,在类模块中声明,自身具有事件。有关使用 Application对象的事件的详细信息,请参阅使用 Application对象的事件

Pres   在非活动窗口中显示的演示文稿。

Wn   非活动文档窗口。

VBA示例

本示例查找非活动窗口中演示文稿的文件名(不含扩展名)。然后向该文件名添加 .htm 扩展名,并将其作为 Web 页保存在演示文稿所在的同一文件夹中。


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

上页:PowerPoint VBA教程:WindowBeforeRightClick事件 下页:PowerPoint VBA教程:WindowSelectionChange事件

PowerPoint VBA教程:WindowDeactivate事件

PowerPoint VBA教程:WindowSelectionChange事件 PowerPoint VBA教程:隐藏的语言元素
PowerPoint VBA教程:在文档中添加控件 PowerPoint VBA教程:在用户窗体中添加控件
PowerPoint VBA教程:控件和对话框事件 PowerPoint VBA教程:在一个 Microsoft Office 应用程序中控制另一个 Microsoft Office 应用程序
PowerPoint VBA教程:创建自定义对话框 PowerPoint VBA教程:创建用户窗体
PowerPoint VBA教程:显示自定义对话框 PowerPoint VBA教程:获得有关 Macintosh 关键字的帮助
PowerPoint VBA教程:初始化控件属性 PowerPoint VBA教程:发布 Web 演示文稿
PowerPoint VBA教程:返回集合中的对象 PowerPoint VBA教程:在代码运行时使用控件值
PowerPoint VBA教程:设置控件属性 PowerPoint VBA教程:在幻灯片中使用 ActiveX 控件
PowerPoint VBA教程:使用 Application对象的事件 PowerPoint VBA教程:在文档中使用 ActiveX 控件
PowerPoint VBA教程:使用形状(绘图对象) PowerPoint VBA教程:使用窗格和视图
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号