ICONE BOUTON BARRE OUTILS

[LIGNON]

Sub CreBarOutils() ' Pour essai
Set BarPlanning1 = Application.CommandBars.Add(Name:="BarPlanning1", Position:=msoBarTop, Temporary:=True)
BarPlanning1.Visible = True
BarPlanning1.Protection = msoBarNoCustomize
Set btNormal = BarPlanning1.Controls.Add(Type:=msoControlButton, Temporary:=True)
With btNormal
.Caption = "Normal"
.Style = msoButtonIcon
.FaceId = 68 'n° de l'icône "haut parleur"
End With

JE VOUDRAI POUVOIR AFFICHER DANS LE BOUTON UNE ICONE OU UNE IMAGE NE FAISANT PAS PARTIE DE CELLES PROPOSEES PAR EXCEL ?
COMMENT "FABRIQUER" SES PROPRES ICONES ?

 

[MG]

Salut, Lignon et le forum

Avec l'aide de Thierry (Ti) un fichier d'extraction d'icônes est présent ici et peu servir pour la recherche d'icônes autre qu'Excel sur CD par exemple enfin c'est sur ce fil.

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=52564&t=52367>

Gérard