Werkbalk verplaatsen

[Daneron]

Hoi, na veel geklungel heb ik eindelijk een werkbalk in elkaar kunnen frutsen, onderstaande code bepaald de positie op het scherm, maar eigenlijk wil ik dat de balk niet zweeft in het werkblad maar vast zit net als de andere werkbalken.
Hoe moet ik de code aanpassen ?

myBar.Visible = True
With CommandBars("Balk")
.Left = 470
.Top = 140
End With

alvast bedankt.

Daneron

 

[Daneron]

heb het al gevonden

.Position = msoBarTop

Nu we toch bezig zijn, waar vind ik alle face id's ?

Bijvoorbeeld FaceId = 133 is een pijltje naar rechts, is er geen lijst waar alle id in staan?

alvast bedankt

 

[jpvs]

Je kunt de balk links of rechts plaatsen met :

With CommandBars("Vul hier de naam van de werkbalk")
.Position = msoBarLeft ' of msoBarRight
End With

Is het dit wat je zoekt?

Pierre

FaseID ---> http://skp.mvps.org/faceid.htm

 

[Daneron]

Bedankt JPVS, dit zocht ik.

mvrg.

 

[jpvs]

Graag gedaan!

Zet je de vraag dan ook even op opgelost.

Pierre