Insérer une icone dans le menu contextuel

Version imprimable

Bonjour,

j'ai insérer un nouveau élément du menu contextuel dans une macro pour excel en utilisant ce code :
Code:

1 2 3 4 5 6 7 8 9 Function MenuCell(stCde As String, stMess As String) Dim Mc As CommandBarControls Dim Bo As CommandBarButton Set Mc = CommandBars("Cell").Controls Set Bo = Mc.Add(msoControlButton, before:=1, Temporary:=True) Bo.Caption = stMess Bo.OnAction = stCde End Function
je cherche à insérer une icône d'une ressource pour ma nouvelle entrée mais je n'arrive pas à trouver une solution intéressante.

Pouvez-vous m'aider ?

merci d'avance.

Bonjour

Voici une macro qui me permet de generer un menu Popup avec des images comme icones (en rouge ce qui te concerne) vois si ca peut t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub init_bar02()
    Dim sm As Variant, cel As Range, Pict As IPictureDisp
    On Error Resume Next
    CommandBars("bar02").Delete
    On Error GoTo 0
    Set bar_02 = Application.CommandBars.Add("bar02", msoBarPopup)
    Set sm = bar_02.Controls.Add(msoControlButton, 1, , , True)
    With sm
        .Caption = "Pas d'image"
        .Tag = ""
        .OnAction = "bar_02_go"
    End With
    For Each cel In Range("villes")
        Set Pict = stdole.StdFunctions.LoadPicture(cel.Offset(0, 1))
        Set sm = bar_02.Controls.Add(msoControlButton, , , , True)
        With sm
            .Picture = Pict
            .Caption = cel.Value
            .Tag = cel.Value
            .OnAction = "bar_02_go"
            .Style = msoButtonIconAndCaption
        End With
    Next
End Sub

Bonne journée

11/04/2008, 09h26
Invité

Bonjour

Pour les barres de commandes et menu contextuel, voici un article à lire : http://starec.developpez.com/tuto/barrecommande/, je sais c'est sous Access, mais c'est la même bibliothèque qu'Excel.

Sinon, va faire un tour dans la partie contribution du forum Excel, mon ami Ouskel'n'or a mis d'excellentes contributions pour la réalisation de menus.

Starec
11/04/2008, 10h08
ouskel'n'or

Et tu as même ça pour Excel ici http://www.developpez.net/forums/sho...d.php?t=461562 ;)

Bonjour
c'est avec La propriété FaceId qu'on peut contrôler l'apparence de l'mage.
voici un exemple qui montre comment ajouter un bouton au clic droit avec son numéro d'identification (ID) est 331
Code:

1 2 3 4 5 6 7 8 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Application.CommandBars("Cell").Reset With Application.CommandBars("Cell").Controls.Add .Caption = "Nom du Clic Droit" .FaceId = 331 cette propriété qui définit le numéro d'identification de l'image .OnAction = "Ta Macro" End With End Sub
Bonne journée à tous le monde

Abed_H :king:

11/04/2008, 10h16
Blondin77

merci pour toutes ces réponses ... je m'en vais les essayer et lire les articles correspondants.