L
LIGNON
Guest
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 ?
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 ?