I have done some research and thought that I had this figured out, but it is
not giving me the result that I am looking for. I am trying to add a divider
to a drop down list between different macros. I thought this was done by the
BeginGroup property, but it is not adding the divider. I have posted a
section of my code below. Can anyone tell me if I am going about this wrong?
Any help would be great. Thanks, Jason



Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
Set cmdBarMenu = cmdBar.Controls.Add(Type:=msoControlPopup,
temporary:=True)
With cmdBarMenu
.Caption = "Tools"
.Tag = "JJT"
End With

Set cmdBarMenuItem = cmdBarMenu.Controls.Add(Type:=msoControlButton)
With cmdBarMenuItem
.Caption = "Merge"
.OnAction = "MergeCells"
.Tag = "JJT"
.FaceId = 798
End With

cmdBarMenu.BeginGroup = True

Set cmdBarMenuItem = cmdBarMenu.Controls.Add
With cmdBarMenuItem
.Caption = "Unmerge"
.OnAction = "UnmergeCells"
.Tag = "JJT"
.FaceId = 800
End With

See the two <<< notations below...
--
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"test_52"
wrote in message
I have done some research and thought that I had this figured out, but it is
not giving me the result that I am looking for. I am trying to add a divider
to a drop down list between different macros. I thought this was done by the
BeginGroup property, but it is not adding the divider. I have posted a
section of my code below. Can anyone tell me if I am going about this wrong?
Any help would be great. Thanks, Jason

Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
Set cmdBarMenu = cmdBar.Controls.Add(Type:=msoControlPopup,
temporary:=True)
With cmdBarMenu
.Caption = "Tools"
.Tag = "JJT"
End With
Set cmdBarMenuItem = cmdBarMenu.Controls.Add(Type:=msoControlButton)
With cmdBarMenuItem
.Caption = "Merge"
.OnAction = "MergeCells"
.Tag = "JJT"
.FaceId = 798
End With

'cmdBarMenu.BeginGroup = True '<<<< Not this

Set cmdBarMenuItem = cmdBarMenu.Controls.Add
With cmdBarMenuItem
.Caption = "Unmerge"
.OnAction = "UnmergeCells"
.Tag = "JJT"
.FaceId = 800
.BeginGroup = True '<<<< Do this instead
End With

Thanks a bunch! Figures it was something easy!