vba barre outils

[zumye]

bonsoir le forum

j'ai le code vba ci dessous qui me genere une barre d'outils avec 9 boutons

je voudrais savoir comment rajouter "des traits de séparation" entre des boutons sur une barre d'outils, par exemple un trait entre le bouton 3 et le bouton4 et un autre entre le bouton 6 et bouton7.

merci


Sub CreeBO() 'à appeler dans le Workbook_Open
Dim MaBar, Btn1, Btn2, btn3, Btn4, Btn5 ', btn6, Btn7, Btn8, btn9
' créatio de la barre d'outils
On Error Resume Next
Set MaBar = Application.CommandBars.Add(nombarreo)
With MaBar

Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
.Caption = "Nouvelle pieuvre"
.FaceId = 350
.OnAction = "NOUVELLEPIEUVRE"
End With

Set Btn2 = .Controls.Add(msoControlButton)
With Btn2
.Caption = "Copier pieuvre"
.FaceId = 479
.OnAction = "copierpieuvre"
End With

etc----------

 

[BOISGONTIER]

Re : vba barre outils

Bonsoir,

Les barres d'outils et menus

JB

 

[bqtr]

Re : vba barre outils

Bonsoir zumye,

Dans le code du bouton 4 puis du 7 rajoute la propriété BeginGroup comme ceci :

       With Btn1
            .Caption = "Nouvelle pieuvre"
            .FaceId = 350
            .OnAction = "NOUVELLEPIEUVRE"
            [COLOR=Blue].BeginGroup = True[/COLOR]
        End With

A+

Edit : bonsoir JB

 

[zumye]

Re : vba barre outils

merci bqtr