Is it possible to customize the right-click drop-down menus in Excel 2007?

You can use code similar to the following.


Sub CreateMenuItem()
Dim RCMenu As Office.CommandBar
Dim Ctrl As Office.CommandBarButton
Set RCMenu = Application.CommandBars("Cell")
Set Ctrl = RCMenu.Controls.Add(Type:=msoControlButton, temporary:=True)
With Ctrl
.BeginGroup = True
.Caption = "Click Me"
.OnAction = "'" & ThisWorkbook.Name & "'!RunProc"
End With
End Sub

Sub RunProc()
MsgBox "hello world"
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"guild0001" wrote in message
...
Is it possible to customize the right-click drop-down menus in Excel 2007?

Yes that does somthing along the right lines. I am a novice with code and
want to add "Paste Values" to a right click.
I was hoping to just be able to just add it to the right-click menu in much
the same way as you add things to the toolbars but I presume this is not
possible.

"Chip Pearson" wrote:

You can use code similar to the following.


Sub CreateMenuItem()
Dim RCMenu As Office.CommandBar
Dim Ctrl As Office.CommandBarButton
Set RCMenu = Application.CommandBars("Cell")
Set Ctrl = RCMenu.Controls.Add(Type:=msoControlButton, temporary:=True)
With Ctrl
.BeginGroup = True
.Caption = "Click Me"
.OnAction = "'" & ThisWorkbook.Name & "'!RunProc"
End With
End Sub

Sub RunProc()
MsgBox "hello world"
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"guild0001" wrote in message
...
Is it possible to customize the right-click drop-down menus in Excel 2007?

Use code like

Sub AAA()
Application.CommandBars("Cell").Controls.Add ID:=370, temporary:=True
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"guild0001" wrote in message
...
Yes that does somthing along the right lines. I am a novice with code and
want to add "Paste Values" to a right click.
I was hoping to just be able to just add it to the right-click menu in
much
the same way as you add things to the toolbars but I presume this is not
possible.

"Chip Pearson" wrote:

You can use code similar to the following.


Sub CreateMenuItem()
Dim RCMenu As Office.CommandBar
Dim Ctrl As Office.CommandBarButton
Set RCMenu = Application.CommandBars("Cell")
Set Ctrl = RCMenu.Controls.Add(Type:=msoControlButton,
temporary:=True)
With Ctrl
.BeginGroup = True
.Caption = "Click Me"
.OnAction = "'" & ThisWorkbook.Name & "'!RunProc"
End With
End Sub

Sub RunProc()
MsgBox "hello world"
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"guild0001" wrote in message
...
Is it possible to customize the right-click drop-down menus in Excel
2007?

Thanks that works fine!

"Chip Pearson" wrote:

Use code like

Sub AAA()
Application.CommandBars("Cell").Controls.Add ID:=370, temporary:=True
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"guild0001" wrote in message
...
Yes that does somthing along the right lines. I am a novice with code and
want to add "Paste Values" to a right click.
I was hoping to just be able to just add it to the right-click menu in
much
the same way as you add things to the toolbars but I presume this is not
possible.

"Chip Pearson" wrote:

You can use code similar to the following.


Sub CreateMenuItem()
Dim RCMenu As Office.CommandBar
Dim Ctrl As Office.CommandBarButton
Set RCMenu = Application.CommandBars("Cell")
Set Ctrl = RCMenu.Controls.Add(Type:=msoControlButton,
temporary:=True)
With Ctrl
.BeginGroup = True
.Caption = "Click Me"
.OnAction = "'" & ThisWorkbook.Name & "'!RunProc"
End With
End Sub

Sub RunProc()
MsgBox "hello world"
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"guild0001" wrote in message
...
Is it possible to customize the right-click drop-down menus in Excel
2007?