Application.WindowBeforeRightClick Event (PowerPoint)
Occurs when you right-click a shape, a slide, a notes page, or some text. This event is triggered by the MouseUp event.
Syntax
expression .WindowBeforeRightClick(Sel, Cancel)
expression A variable that represents an Application object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Sel |
Required |
Selection |
The selection below the mouse pointer when the right-click occurred. |
Cancel |
Required |
Boolean |
False when the event occurs. If the event procedure sets this argument to True, the default context menu does not appear when the procedure is finished. |
Example
This example creates a duplicate of the selected shape. If the shape has a text frame, it adds the text "Duplicate Shape" to the new shape. Setting the Cancel argument to True then prevents the default context menu from appearing.
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