Bouton = texte + icone

natbru

XLDnaute Occasionnel
Bonsoir le forum,

Tout d'abord, je vous souhaite une trés bonne année à tous.

Ma question :

Suite à l'aide que j'ai trouvé parmis vous, j'ai réussi à créer une barre d'outil avec un bouton à l'ouverture d'un fichier spécifique (trop facile pour vous mais pour moi une vraie galère).

Maintenant, j'ai un soucis sur l'apparence du bouton.

Je voudrais que le bouton représente un icone et un texte. A priori, dans excel, c'est possible en passant par personnalisation mais comme je veux que la barre + le bouton soit créé à l'ouverture, il faut que ce soit programmé dans vba. J'ai essayé avec l'enregistreur de macro mais en vain.

Quelqu'un peut-il m'aider ?

Merci beaucoup.
 

Hervé

XLDnaute Barbatruc
bonsoir natacha

bonne année à toi aussi

les icones des boutons sont représentés par un numéro d'identification appelé FaceId.

A titre d'exemple ce code crée un bouton comportant un texte et un icone.


Dim bouton As CommandBarButton
On Error Resume Next
Set bouton = Application.CommandBars('Standard').Controls('CASSE')
On Error GoTo 0
If Not bouton Is Nothing Then Exit Sub
With Application.CommandBars('Standard').Controls.Add(msoControlButton)
.Caption = 'CASSE'
.OnAction = 'demarre'
.FaceId = 1062
'ICI L'ICONE
.TooltipText = 'Ctrl+E'
.Style = msoButtonIconAndCaption
.BeginGroup =
True
End With


Pour retrouver les numéro de FaceId , j'utilise un code de john Walkenback que tu trouveras à l'adresse suivante :
http://j-walk.com/ss/excel/tips/tip67.htm

en espérant t'avoir été utile.

salut

Message édité par: Hervé, à: 01/01/2006 23:09
 

natbru

XLDnaute Occasionnel
Bonsoir Hervé,

Merci pour ta réponse, c'est exactement ce qu'il me fallait. Dans le code que j'avais, il me manquait :

.Style = msoButtonIconAndCaption

pour obtenir ce que je voulais.

Merci aussi pour le tuyau pour retrouver les numéro de FaceId mais en cherchant sur le forum, je l'avais déjà trouvé, c'est d'ailleurs ce qui m' a permis d'affecter une icone à mon bouton. (créer grâce à l'aide de MichelXLD que je remercie encore au passage).

A bientôt.
 

Discussions similaires

Statistiques des forums

Discussions
311 541
Messages
2 080 541
Membres
101 237
dernier inscrit
jocethom