通过

Application.WindowBeforeRightClick 事件 (PowerPoint)

  • 项目

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

语法

expression. WindowBeforeRightClick( _Sel_, _Cancel_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Sel 必需 Selection 发生右键单击时鼠标指针下方的选定内容。
Cancel 必需 Boolean 假 的事件发生时。 如果事件过程将此参数设置为 True ，在完成此过程后不会出现默认的上下文菜单。

示例

本示例创建选定形状的一个副本。 如果形状是文字框架，它到新形状添加文本"重复的形状"。 然后将 Cancel 参数设置为 True 可防止出现默认的上下文菜单。

Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, 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

另请参阅

Application 对象

支持和反馈

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