Application.WindowBeforeRightClick-Ereignis (PowerPoint)

  • Artikel

Tritt auf, wenn Sie ein Shape, eine Folie, eine Notizenseite oder Text mit der rechten Maustaste. Dieses Ereignis wird durch das MouseUp -Ereignis ausgelöst.

Syntax

Ausdruck. WindowBeforeRightClick( _Sel_, _Cancel_ )

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Sel Erforderlich Selection Die beim Rechtsklick unter dem Mauszeiger befindliche Auswahl.
Cancel Erforderlich Boolean False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festgelegt wird, wird das Standardkontextmenü beim Beenden der Prozedur nicht angezeigt.

Beispiel

Dieses Beispiel erstellt ein Duplikat des ausgewählten Shapes. Wenn die Form einen Textrahmen aufweist, werden die neue Form den Text "Duplicate Shape" hinzugefügt. Klicken Sie dann das Argument Cancel auf True festlegen wird verhindert, dass das Standardkontextmenü angezeigt werden.

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

Siehe auch

Application-Objekt

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.