Toolbar

D

dstiefe

I've created a toolbar...how do I get the toolbar to automatically "dock"
under the "main" menu (i.e. File ..Edit...View....etc..)

Thank you
 
D

Dave Peterson

Maybe something like:

Option Explicit
Sub testme()

Dim myTB As CommandBar

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

Set myTB = Application.CommandBars.Add(Name:="hithere", _
Position:=msoBarTop, temporary:=True)

myTB.Visible = True
With Application.CommandBars("standard")
myTB.RowIndex = .RowIndex
myTB.Left = .Width 'or 0???
End With

End Sub
 
Top