Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec le libellé Aide mais avec un icône (FaceID) comme par exemple la mise en couleur de la police de la barre d'outils Mise en forme (le A souligné)
(Voir l'image jointe)
Mon code de sous menu est le suivant :
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec le libellé Aide mais avec un icône (FaceID) comme par exemple la mise en couleur de la police de la barre d'outils Mise en forme (le A souligné)
(Voir l'image jointe)
Mon code de sous menu est le suivant :
Code:
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub