position barre outil perso

[agnèsk]

bonjour,

j'ai crée 4 barres outils perso (comme trouvé dans ce forum: merci encore!)
j'ai juste un petit souci de positionnement de ces barres
elles sont toutes en "Position:=msoBarTop" mais s'alignent les unes sous les autres:

B1
B2
B3
B4

ALORS QUE JE VOUDRAIS
B1 B2
B3 B4

Que faut-il rajouter au code suivant:

Dans Thisworkbook
Private Sub Workbook_Open()
Call BO.CreerBarre1
Call BO.CreerBarre2
Call BO.CreerBarre3
Call BO.CreerBarre4
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("B1").Delete
Application.CommandBars("B2").Delete
Application.CommandBars("B3").Delete
Application.CommandBars("B4").Delete
End Sub

'suivant procedures
Application.CommandBars("B1").Visible = True
Application.CommandBars("B2").Visible = True
Application.CommandBars("B3").Visible = True
Application.CommandBars("B4").Visible = True


Dans module:
Sub CreerBarre1()
Set MyBar = CommandBars.Add(Name:="B1", Position:=msoBarTop, temporary:=True)
Set MyBouton = MyBar.Controls.Add(Type:=msoControlButton)
Worksheets("A").Shapes("Icon01").Copy
With MyBouton
.TooltipText = "Ouvrir FEUILLE MOIS"
.Style = msoButtonIcon
.Width = 50
.Height = 50
.OnAction = "mOIS"
.PasteFace
End With
(idem pour les autres boutons)
end sub


merci de vos lumières

agnesk

 

[Evelynetfrancois]

Re : position barre outil perso

BONJOUR agnèsk

ALORS QUE JE VOUDRAIS
B1 B2
B3 B4

la chose qui me vient de suite à l esprit

Pourquoi ne pas créer deux barres [b1+b2] et [b3+b4]?

E et F

 

[Hervé]

Re : position barre outil perso

bonjour

sinon, on peut utiliser la propriété rowindex des barres d'outils.

rowindex permet de faire cohabiter plusieurs barres d'outils sur la meme ligne.

souci, c'est que la barre d'outil créé se met en premiere position de la ligne, donc dans ton cas tu aurais :

b2 b1
b3 b4

il suffit donc simplement d'intervertir l'ordre de création des barres.

exemple en piece jointe.

salut

 

[agnèsk]

Re : position barre outil perso

bonjour

ok ça roule

la solution est ... simple quand on la voie !

merci encore