Position of MyBar

[GregR]

I have a custom toolbar that opens with a specific WB. I want to
position it at the end of the "Formatting toolbar" on the 3rd Row, not
in its own seperate row. How do I accomplish this? TIA

Greg

 

[Dave Peterson]

Maybe something like:

Option Explicit
Sub testme()

Dim cb As CommandBar
Dim fCB As CommandBar

Set fCB = Application.CommandBars("Formatting")

On Error Resume Next
Application.CommandBars("Mybar").Delete
On Error GoTo 0

Set cb = Application.CommandBars.Add(Name:="mybar", temporary:=True)

With cb
.Visible = True
.Position = msoBarTop
.Visible = True
.Left = fCB.Width + fCB.Left
.RowIndex = fCB.RowIndex
End With

End Sub

 

[GregR]

Dave, perfect solution as always. Thanks

Greg

 

[GregR]

Dave, perfect solution as always. Thanks

Greg