Événement Application.WindowBeforeRightClick (PowerPoint)

  • Article

Cet événement se produit lorsque vous cliquez avec le bouton droit sur une forme, une diapositive, une page de commentaires ou un texte. Il est déclenché par l’événement MouseUp.

Syntaxe

expression. WindowBeforeRightClick( _Sel_, _Cancel_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
Sel Obligatoire Selection Sélection située sous le pointeur de la souris au moment du clic avec le bouton droit.
Cancel Obligatoire Booléen False lorsque l'événement se produit. Si la procédure événementielle définit cet argument avec la valeur True, le menu contextuel par défaut ne s’affiche pas à la fin de la procédure.

Exemple

Cet exemple crée un doublon de la forme sélectionnée. Si cette forme comporte un cadre de texte, la nouvelle forme est identifiée par un texte comme étant une forme dupliquée. Si l’argument Cancel a la valeur True, le menu contextuel par défaut ne s’affiche pas.

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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.