Afficher le nom et l'image d'un bouton
Résolu
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 :
Merci a tous !
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 !
