Ataahualpa
XLDnaute Junior
Bonjour à tous
Excel 2007
J'ai crée une barre d'outils personnalisée (commandbar) dans l'onglet compléménts.Dans laquelle j'ai mis plusieurs contrôls (macro).
Actuellement les contrôls sont alignés les uns après les autres !
Macro1 Macro2 Macro3 etc .....
J'aimerais les positionner autrement, tel que
Macro1 Macro4
Macro2
Macro3
Quelqu'un a une idée ?
Mon code :
Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = False
bouton.Style = msoButtonIconAndCaption
bouton.FaceId = 72
bouton.OnAction = "Feuille"
bouton.Caption = "Déprotège Feuille"
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = False
bouton.Style = msoButtonIconAndCaption
bouton.FaceId = 73
bouton.OnAction = "Classeur"
bouton.Caption = "Déprotège Classeur"
Cordialement
Excel 2007
J'ai crée une barre d'outils personnalisée (commandbar) dans l'onglet compléménts.Dans laquelle j'ai mis plusieurs contrôls (macro).
Actuellement les contrôls sont alignés les uns après les autres !
Macro1 Macro2 Macro3 etc .....
J'aimerais les positionner autrement, tel que
Macro1 Macro4
Macro2
Macro3
Quelqu'un a une idée ?
Mon code :
Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = False
bouton.Style = msoButtonIconAndCaption
bouton.FaceId = 72
bouton.OnAction = "Feuille"
bouton.Caption = "Déprotège Feuille"
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = False
bouton.Style = msoButtonIconAndCaption
bouton.FaceId = 73
bouton.OnAction = "Classeur"
bouton.Caption = "Déprotège Classeur"
Cordialement