PowerPoint VBA教程:WindowBeforeRightClick事件

当用鼠标右键单击某个形状、幻灯片、备注页或文本时发生此事件。此事件由 MouseUp事件触发。

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

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

Sel   鼠标右键单击时于鼠标指针以下的选定区域。

Cancel   当此事件发生时,为 False。如果事件过程将此参数设置为 True,则完成此过程后不会出现默认的快捷菜单。

VBA示例

本示例创建选定形状的一个副本。如果该形状有文本框,则将文本“Duplicate Shape”添加到新形状中。将 Cancel参数设置为 True 可以避免出现快捷菜单。


Private Sub App_WindowBeforeRightClick _         (ByVal Sel As Selection, ByVal Cancel As Boolean)
    With ActivePresentation.Selection.ShapeRange
        If .HasTextFrame Then
            .Duplicate.TextFrame.TextRange.Text = "Duplicate Shape"
        Else
            .Duplicate
        End If
        Cancel = True
    End With
End Sub

上页:PowerPoint VBA教程:WindowBeforeDoubleClick事件 下页:PowerPoint VBA教程:WindowDeactivate事件

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 控件 PowerPoint VBA教程:使用形状(绘图对象)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号