Application.WindowBeforeRightClick-Ereignis (Word)
Tritt beim Klicken mit der rechten Maustaste in den Arbeitsbereich eines Dokumentfensters ein, bevor der hierdurch standardmäßig aktivierte Vorgang gestartet wird.
Syntax
Privater Sub-Ausdruck._'WindowBeforeRightClick** (Sel As Selection**, Cancel As Boolean)
Ausdruck Eine Variable, die ein Application-Objekt darstellt, das mit Ereignissen in einem Klassenmodul deklariert wurde.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Sel | Erforderlich | Selection | Die aktuelle Auswahl. |
Cancel | Erforderlich | Boolean | False, wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festlegt, wird beim Beenden der Prozedur der durch Klicken mit der rechten Maustaste standardmäßig aktivierte Vorgang nicht ausgeführt. |
HinwBemerkungeneise
Weitere Informationen zur Verwendung von Ereignissen mit dem Application-Objekt finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.
Beispiel
In diesem Beispiel wird der Benutzer aufgefordert, eine Ja- oder Nein-Antwort einzugeben, bevor die Standardmäßige Rechtsklickaktion ausgeführt wird. Dieser Code muss in einem Klassenmodul platziert werden, und eine Instanz der -Klasse muss ordnungsgemäß initialisiert werden, damit dieses Beispiel funktioniert. Anweisungen dazu finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für