Adding Separator Menu Item - Excel 2003

  • Thread starter Thread starter Desi
  • Start date Start date
D

Desi

Anyone know how to dynamically add a separator menu item to a custom menu in
Excel 2003?
This code works with the exception that instead of creating a separator menu
item, it simply creates another
menu item with caption "-". Is it possible to get there from here?

TIA

Des
_________________________________________________________


Sub test()

Dim ComBar As CommandBar
Dim PopMain As CommandBarPopup
Dim PopAbout As CommandBarButton
Dim PopDivider As CommandBarButton


For Each ComBar In CommandBars
If ComBar.Name = "Worksheet Menu Bar" Then
Set PopMain = ComBar.Controls.Add(msoControlPopup, , ,
(ComBar.Controls.Count - 1), True)
PopMain.Caption = "Custom Menu Name Here"
Exit For
End If
Next

If PopAbout Is Nothing Then
Set PopAbout = PopMain.Controls.Add(msoControlButton, , , , True)
PopAbout.Caption = "&About..."
End If


If PopDivider Is Nothing Then
Set PopDivider = PopMain.Controls.Add(msoControlButton, , , , True)
PopDivider.Caption = "-"
End If

yadda, yadda, yadda...
 
Roedd said:
Anyone know how to dynamically add a separator menu item to a custom
menu in Excel 2003?
Click to expand...

Set the value of the BeginGroup property of the next menuitem to True.


--
Rob

http://www.asta51.dsl.pipex.com/webcam/

This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.
 
Too cool for school! Works like a champ Rob, thank you.

BTW, sixteen minute turnaround time on my request ain't bad. Better then any
vendor's customer service dept. I've ever dealt with!

Later!

Des
_________________________
 
Back
Top