次の方法で共有

Application.WindowBeforeRightClick イベント (Word)

  • [アーティクル]

文書ウィンドウの編集領域で、既定の右クリック操作の前に、マウスの右ボタンがクリックされたときに発生します。

構文

Private Sub 式._'WindowBeforeRightClick** (Sel As Selection**, Cancel As Boolean)

式 クラス モジュール内のイベントで宣言された 'Application' オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Sel 必須 Selection 現在の選択範囲です。
Cancel 必須 Boolean False イベントが発生します。 イベント プロシージャでは、この引数が True に設定] の手順を完了したら既定を右クリックのアクションはされません。

注釈

Application オブジェクトでイベントを使用する方法の詳細については、「 Application オブジェクト でのイベントの使用」を参照してください。

例

次の使用例は、既定の右クリック アクションを実行する前に、ユーザーに "はい" または "いいえ" の応答を求めます。 このコードはクラス モジュールに配置する必要があり、この例の動作を確認するには、 クラスのインスタンスを正しく初期化する必要があります。これを行う方法については、「 Application オブジェクトでのイベントの使用」を参照してください。

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_WindowBeforeRightClick _ 
 (ByVal Sel As Selection, Cancel As Boolean) 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Selection = " & Sel & vbLf & vbLf _ 
 & "Continue with operation on this selection?", _ 
 vbYesNo) 
 If intResponse = vbNo Then Cancel = True 
End Sub

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。