View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Dick Kusleika[_4_] Dick Kusleika[_4_] is offline
external usenet poster
 
Posts: 595
Default 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