adding shortcut menu items

[singincpa]

The macro that I am using to add items is:

Sub AddItemToShortcut()
' Adds specified function to shortcut menu
'
Set NewItem = CommandBars("Cell").Controls.Add
With NewItem
.Caption = "Paste Values"
.OnAction = "PasteValues"
.BeginGroup = False
End With
End Sub

What should it be? Thank

 

[Ron de Bruin]

Hi

Sub Test_Cell_Menu()
' Add Paste Values to the menu
Application.CommandBars("cell").Controls. _
Add Type:=msoControlButton, ID:=370, before:=1
End Sub

Sub Reset_Cell_menu()
Application.CommandBars("cell").Reset
End Sub


See also

http://support.microsoft.com/default.aspx?scid=kb;en-us;830502&Product=xlw
How to customize menus and menu bars in Excel

http://support.microsoft.com/default.aspx?scid=kb;en-us;213209&Product=xlw
XL2000: Sample Macros that Customize and Control Shortcut Menus

http://support.microsoft.com/default.aspx?scid=kb;en-us;213550&Product=xlw
XL2000: Sample Macros for Customizing Menus and Submenus

http://support.microsoft.com/default.aspx?scid=kb;en-us;166755&Product=xlw
XL97: WE1183: "Customizing Menu Bars, Menus, and Menu Items"

http://support.microsoft.com/default.aspx?scid=kb;en-us;159619&Product=xlw
XL97: Sample Macros for Customizing Menus and Submenus

http://support.microsoft.com/default.aspx?scid=kb;en-us;162878&Product=xlw
XL97: Sample Macros That Customize and Control Shortcut Menus

 

[David McRitchie]

also see
Right Click Menus (Context Menus) in Excel
http://www.mvps.org/dmcritchie/excel/rightclick.htm