Événement Application.WindowBeforeRightClick (PowerPoint)

Article
04/07/2023

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.

Partager via