Placer icone devant menu contextuel
Bonjour,
J’ai créé un menu contextuel (Mon menu contextuel) avec un sous menu (coupe).
J’ai réussi a placer une icône (FaceId) devant le sou menu, mais je n’arrive pas a faire de même devant le menu contextuel.
Savez-vous comment faire ?
Merci par avance
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub menu_contextuel()
Dim Cpop1 As CommandBarPopup
Dim Cbut As CommandBarButton
Dim MaBarre As CommandBar
Set MaBarre = Application.CommandBars("cell")
Set Cpop1 = MaBarre.Controls.Add(msoControlPopup)
With Cpop1
.Caption = "Mon menu contextuel" '<-- label du sous-menu
End With
Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 266
.Caption = "coupe"
.OnAction = "Macro1"
End With
End Sub |
