XL 2016 Menu contextuel sur Clic droit d'un shape

[fanch55]

Bonjour,
Cela fait 4 heures que je sèche en essayant de rajouter une option au menu contextuel pour un shape quel qu'il soit .
Le shape ciblé est en fait une image .
Ci-dessous le code :

Sub Go_Popup()
    Add_Popup_Option "Shapes"
End Sub
Sub Add_Popup_Option(Bar As String)
    With Application.CommandBars(Bar)
        If .Type = msoBarTypePopup Then
            .Reset
            With .Controls.Add(msoControlButton, 1, , 1)
                .Caption = "AEIOUY ===> " & Bar
                .OnAction = "Pasglop"
            End With
        Else
            Debug.Print Bar & " n'est pas de type Popup"
        End If
    End With
End Sub

Quand je fais un clic droit sur un shape , aucune option supplémentaire n'est affichée .

Par curiosité, j'ai refait ce code pour toutes les commandbars de type Popup :

Sub Set_Popup_Menus()
Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
       Add_Popup_Option Cbar.Name
    Next
End Sub

Quand je fais un clic droit sur une cellule, une colonne, une ligne ou autres, cela fonctionne.

Quand c'est un Shape, toujours rien ....

Existerait-il quelqu'un ayant déjà solutionné ce problème ?
Un palliatif serait d'utiliser le onclick du shape mais ce n'est pas vraiment mon objectif ..

Par avance Merci,
Fanch

 

[patricktoulon]

bonsoir
le menu dans ta capture 1 n'est pas le menu shapes c'est un menu d’édition et de paramétrage pour tes shapes y compris pictures
pourquoi tu ne vois pas ton item?
c'est un problème que je connais bien
et bien le clic droit le créé dynamiquement c'est l'application qui s'en charge
le menu shapes c'est celui la et comme tu peux le voir dans la capture qui suit le bouton apparaît
il apparait pourquoi
et bien tout simplement parceque c'est moi qui le show et non l'application qui te l'affiche
de ce fait ca te le show pas comme a l'origine mais bien modifié

et pour la peine tu a l'auto destruction par le .reset a chaque click et choix dans le menu
tu n'a donc pas a le détruire en quittant

affecte la macro createoptionmenu a tes shapes ou images celle que veux

Sub createoptionmenu()
    ActiveSheet.Shapes(Application.Caller).Select
    With CommandBars("Shapes")
       .Reset
        With .Controls.Add(msoControlButton, 1, , 1)
            .Caption = "AEIOUY ===> " & Bar
            .OnAction = "Pasglop"
        End With
    .ShowPopup
    .Reset
    End With
End Sub

 

[fanch55]

Salut Patrick,
C'est bien ce que je disais, je ne veux pas utiliser le click gauche mais le click droit comme un menu contextuel tel que l'attendu d'Excel

Un palliatif serait d'utiliser le onclick du shape mais ce n'est pas vraiment mon objectif ..

C'est un palliatif que j'ai déjà exploré, je ne veux pas l'affecter en tant que macro.

 

[fanch55]

Pour info, l'utilisateur est habitué à des options via le clic droit et non pas le clic gauche.
mais si ça ne peut plus ce faire ....

 

[Staple1600]

Bonsoir le fil

fanch55
Il me semble avoir lu que ce n'était point possible sur un shape.
Ce qui tombe bien puisque cela va à l'encontre de l'ergonomie classique.

 

[fanch55]

salut Staple,

Ce qui tombe bien puisque cela va à l'encontre de l'ergonomie classique.

Je ne comprend pas bien, on peut modifier les commandbars sur tous les objets sauf les shapes qui ne feraient pas partie des objets classiques ?
les shapes seraient donc des objets non classiques car très peu utilisés .... ( galetjade ),
je pense plutôt que c'est un oubli des développeurs d'Excel ...

 

[Staple1600]

Re

L'ergonomie sous Windows, c'est qu'on clique gauche sur un contrôle pour lancer une action (par défaut)
(Le clic-droit, c'est contextuel et adaptatif)
Et comme son nom l'indique commandbar("CELL") est liée aux cellules

PS:Et moi aussi, j'ai erré dans le désert jadis

[VBA] CommandBar("CELL") - Remplir ActiveCell - Est-ce possible?

Bonjour à tous Voilà le problème que je n'arrive pas à résoudre (D'ailleurs est-ce possible?) EDITION: ajout fichier exemple: Ce lien n'existe plus Avec ce code (dans une feuille) Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim cbItems As Object: Dim j As...

www.excel-downloads.com

 

[fanch55]

Staple, le cell n'est pas concerné et je cible un menu contextuel pour le shape et adaptatif et je n'y arrive pas (mea culpa mais [je suis athée] Microsoft, lamma sabachtani),
Sans dérision aucune, je ne vois pas pourquoi c'est impossible ...

 

[Staple1600]

Re

Le menu contextuel qu'on voit en copie d'écran est le celui de la commandbar CELL, non ?
(également dans la copie d'écran de patricktoulon)

 

[patricktoulon]

Re

Le menu contextuel qu'on voit en copie d'écran est le celui de la commandbar CELL, non ?
(également dans la copie d'écran de patricktoulon)

non Staple1600 c'est le commandbars("Shapes")

 

[fanch55]

Il y a deux copies d'écran, la première est celle du Shape (ciblée), la seconde celle du Cell (pour exemple)
Celle de Patricktoulon est effectivement pour le shape mais suite à un onclick (clic gauche) .

 

[fanch55]

Bon ben, après de vaines recherches sur internet, je vais considérer que ce n'est pas ou plus actuellement possible [ pourquoi avoir fait un commandbar("Shapes") modifiable alors ... ]

C'est bizare, je n'ai plus de notification par mail pour les discussions ...