PowerPoint VBA教程:WindowBeforeDoubleClick事件

当双击下表列出的视图中的项目时发生此事件。

视图 项目
普通或幻灯片视图 形状
幻灯片浏览视图 幻灯片
备注页视图 幻灯片图像

除非将 Cancel参数设置为 True,否则在发生此事件后将产生默认的双击动作。

Private Sub application_WindowBeforeDoubleClick(ByVal Sel As Selection, ByVal Cancel As Boolean)

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

Sel   双击时鼠标指针以下所选定的区域。

Cancel  此事件发生时,为 False。如果事件过程将此参数设置为 True,则完成此过程后,不会执行默认的双击动作。

VBA示例

在幻灯片浏览视图中,默认双击任何幻灯片都会转到幻灯片视图。在本示例中,如果活动演示文稿显示在幻灯片浏览视图中,则 WindowBeforeDoubleClick事件抢占为默认动作。事件过程会将视图切换为普通视图,然后通过将 Cancel参数设置为 True 来取消切换到幻灯片视图。


Private Sub App_WindowBeforeDoubleClick _         (ByVal Sel As Selection, ByVal Cancel As Boolean)
    With Application.ActiveWindow
        If .ViewType = ppViewSlideSorter Then
           .ViewType = ppViewNormal
            Cancel = True
        End If
    End With
End Sub

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

PowerPoint VBA教程:WindowBeforeDoubleClick事件

PowerPoint VBA教程:WindowBeforeRightClick事件 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 控件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号