Application.WindowBeforeRightClick イベント (PowerPoint)

  • [アーティクル]

図形、スライド、ノート、またはいくつかのテキストを右クリックしたときに発生します。 MouseUp イベントでは、このイベントが発生しました。

構文

式。 WindowBeforeRightClick( _Sel_, _Cancel_ )

expressionApplication オブジェクトを 表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Sel 必須 Selection 右ボタンをクリックしたときにマウス ポインターが置かれている選択項目です。
Cancel 必須 Boolean 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 のサポートおよびフィードバックを参照してください。