共用方式為

PowerPoint) (Application.WindowBeforeRightClick 事件

  • 發行項

以滑鼠右鍵按一下圖形、 投影片、 備忘稿或部分文字方向時發生。 由 MouseUp 事件觸發這個事件。

語法

expression. WindowBeforeRightClick( _Sel_, _Cancel_ )

expression 代表 Application 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Sel 必要 選取範圍 以滑鼠右鍵按一下時，位於滑鼠指標底下的選取範圍。
Cancel 必要 布林值 False 事件發生時。 如果事件程序會將此引數設定為 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 支援與意見反應。