taille icone barre outil

[agnèsk]

bonjour,




je cree ma barre et mon bouton (plus large que d'origine)

Set MyBar = CommandBars.Add(Name:="MABARRE", Position:=msoBarTop, temporary:=True)

Set MyBouton = MyBar.Controls.Add(Type:=msoControlButton)

MyBouton.Caption = "Quitter"
MyBouton.TooltipText = "Quitter l'application"
MyBouton.Style = msoButtonIcon
MyBouton.Width = 50
MyBouton.Height = 50
MyBouton.OnAction = mamacro
Worksheets("Boutons").Shapes("IconX").Copy
MyBouton.PasteFace



mais l'image-icone récupérée dans le bouton n'est pas calibré

il reste "petit" au milieu du bouton

peut on l'agrandir ?


j'ai bien trouvé l'option du menu affichage/barreoutil/personnalise/option/gdicone

(dont je ne trouve pas le code) mais il ne résoud pas mon pb.

merci de vos conseils