position barres d'outils avec msobartop

[christian]

bonjour à tous,

Je voudrais aligner les 2 barres d'outils ci-dessous l'une à côté de l'autre et non pas l'une en dessous de l'autre. Est-ce qu'il existe une solution ?

Sub BarresEnHaut()

Dim MaBarre As CommandBar
Set MaBarre = CommandBars.Add("barre perso")
With MaBarre
.Visible = True
.Position = msoBarTop
End With
Set MaBarre1 = CommandBars.Add("barre perso1")
With MaBarre1
.Visible = True
.Position = msoBarTop
End With
End Sub

 

[christian]

bonjour à tous,

Entre temps, il me semble que j'ai trouvé un truc qui à l'air de fonctionner
Il suffit de les activer après coup avec enabled =true

Dim MaBarre As CommandBar
Set MaBarre = CommandBars.Add("barre perso")
With MaBarre
.Visible = True
.Position = msoBarTop
.Enabled = False
End With
Set MaBarre1 = CommandBars.Add("barre perso1")
With MaBarre1
.Visible = True
.Position = msoBarTop
.Enabled = False
End With
End Sub

Sub activer2BarresEnHaut()

CommandBars("barre perso").Enabled = True
CommandBars("barre perso1").Enabled = True
End Sub