How do I add a Seperator Line?

The code I'm using is here.

http://www.ozgrid.com/VBA/right-click.htm


--
mpeplow
------------------------------------------------------------------------
mpeplow's Profile: http://www.excelforum.com/member.php...o&userid=34812
View this thread: http://www.excelforum.com/showthread...hreadid=566667

use the BeginGroup property.

--
Regards,
Tom Ogilvy


"mpeplow" wrote:


How do I add a Seperator Line?

The code I'm using is here.

http://www.ozgrid.com/VBA/right-click.htm


--
mpeplow
------------------------------------------------------------------------
mpeplow's Profile: http://www.excelforum.com/member.php...o&userid=34812
View this thread: http://www.excelforum.com/showthread...hreadid=566667

Hi

Use
BeginGroup = True

See example below to add two build-in controls to the cell menuu

Sub Add_Cell_Menu_Items()
Dim IDnum As Variant
Dim N As Integer

IDnum = Array("3", "4")
Application.CommandBars("Cell").Controls(1).BeginG roup = True

For N = LBound(IDnum) To UBound(IDnum)
On Error Resume Next
Application.CommandBars("Cell").Controls.Add _
Type:=msoControlButton, ID:=IDnum(N), befo=1
On Error GoTo 0
Next N
End Sub


Sub Delete_Cell_Menu_Items()
Dim IDnum As Variant
Dim N As Integer

IDnum = Array("3", "4")

For N = LBound(IDnum) To UBound(IDnum)
On Error Resume Next
Application.CommandBars("Cell").FindControl(ID:=ID num(N)).Delete
On Error GoTo 0
Next N
Application.CommandBars("Cell").Controls(1).BeginG roup = False

End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl



"mpeplow" wrote in message
...

How do I add a Seperator Line?

The code I'm using is here.

http://www.ozgrid.com/VBA/right-click.htm


--
mpeplow
------------------------------------------------------------------------
mpeplow's Profile: http://www.excelforum.com/member.php...o&userid=34812
View this thread: http://www.excelforum.com/showthread...hreadid=566667