Afficher le nom et l'image d'un bouton Résolu/Fermé

Question

Bonjour,

J'ai crée une macro qui crée une barre personnalisé avec des boutons, mais lorsque la barre est crée, elle n'affiche que l'image du bouton et pas le nom.

Est-ce que vous savez comment définir "image + Nom" ?

Voici ma VBA :

Private Sub Workbook_Open()
'
' OPEN_BARRE Macro
' ouvre la Barre d'outils
 Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    'Création de la barre d'outils nommée 'Macros'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="test", Position:=msoBarTop, Temporary:=True)
 
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 173
        .Caption = "01"
        .OnAction = "Sauvegardejanvier"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .Caption = "Cacher"
        .FaceId = 342
        .OnAction = "Cacher"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .Caption = "Afficher"
         .FaceId = 343
        .OnAction = "Afficher"
    End With
 
    CmdBar.Visible = True
End Sub


Merci a tous !

lermite222 · Accepted Answer

Bonjour,
    With Bouton
        .Style = msoButtonIconAndCaptionBelow
        .Caption = "Cacher"
        .FaceId = 342
        .OnAction = "Cacher"
    End With
A+

Afficher le nom et l'image d'un bouton

1 réponse

Discussions similaires