Add Button to End of Menu Bar
 

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

Add Button to End of Menu Bar
 

On Tue, 10 Feb 2009 10:43:01 -0800, Nigel wrote:

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



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

Set lastMenu =
myMenuBar.Controls.Add(msoControlButton,,,myMenuBa r.Controls.Count + 1)
lastMenu.BeginGroup = True
--
Dick Kusleika
Microsoft MVP-Excel
http://www.dailydoseofexcel.com