Discussion :

[fikren]

Bonjour,

J'ai créé une barre d'outils personnalisée qui se charge lors de l'ouverture du classeur (avec création à ce moment la pour permettre la transportabilité du fichier). Sur cette barre il y a un bouton pour lequel je n'utilise pas d'images mais juste le texte du caption.
Mon problème est le suivant, lors de la création de la barre cet icone est affichée avec un icone gris. Je voudrais lui faire activer l'option texte seul pour ce bouton mais je ne trouve pas l'option vba pour réaliser cela.

Voici le code de création du bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set bo = Application.CommandBars.Add(nomBO, msoBarTop)
With bo.Controls.Add(msoControlButton)
.Caption = "Nouveau Bouton"
.OnAction = "module1.n_bouton"
End With

[ouskel'n'or]

Essaie d'ajouter le style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set bo = Application.CommandBars.Add(nomBO, msoBarTop) 
With bo.Controls.Add(msoControlButton) 
     .Caption = "Nouveau Bouton" 
     .OnAction = "module1.n_bouton" 
     .style = msoButtonCaption
End With

A+

[fikren]

Exactement ce qu'il me fallait. Merci ouskel'n'or.