Add Button to End of Menu Bar

N

Nigel

I am adding some button to the end of a menu bar and trying to create a group
at the same time

I am using the following function to try and begin the group bit it wants to
begin the group 1 button early


Set myMenuBar = application.CommandBars("essOption")
Set lastMenu = myMenuBar.Controls(myMenuBar.Controls.Count)
lastMenu.BeginGroup = True
 
D

Dick Kusleika

I am adding some button to the end of a menu bar and trying to create a group
at the same time

I am using the following function to try and begin the group bit it wants to
begin the group 1 button early


Set myMenuBar = application.CommandBars("essOption")
Set lastMenu = myMenuBar.Controls(myMenuBar.Controls.Count)
lastMenu.BeginGroup = True
Click to expand...

Nigel: Add your new button first, then set the new button's BeginGroup
property to True.

Set lastMenu =
myMenuBar.Controls.Add(msoControlButton,,,myMenuBar.Controls.Count + 1)
lastMenu.BeginGroup = True
 
Top