View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
StephenD StephenD is offline
external usenet poster
 
Posts: 4
Default Right Mouse Click

All - sorry I did not get back sooner (I was away) but I wanted to thank you
for your all of your help. It looks as if I will be taking the VBA approach.

"Gary''s Student" wrote:

If you change you mind about VBA, consider the following three macros:

Sub FormulaPaster()
ActiveCell.PasteSpecial Paste:=xlPasteFormulas
End Sub


Sub AddShortcutMenuItems()
Dim new_menu_item As CommandBarButton
Call DeleteShortcutMenuItems
With Application.CommandBars("Cell")
Set new_menu_item = .Controls.Add(Type:=msoControlButton, befo=1)
With new_menu_item
.Caption = "&Paste Formula"
.OnAction = "FormulaPaster"
.Style = msoButtonIconAndCaption
.FaceId = 8
End With
End With
End Sub



Sub DeleteShortcutMenuItems()
On Error Resume Next
With Application.CommandBars("Cell")
.Controls("&Paste Formula").Delete
End With
End Sub


Running AddShortcutMenuItems will add the option to the right-click menu.

DeleteShortcutMenuItems will remove the option.

FormulaPaster does the pasting
--
Gary''s Student - gsnu200854


"StephenD" wrote:

Can I modify the right mouse click options?

Preferably I would like to do this without VBA, however . . if that is the
only way then how would I add Paste Special Formulas as a single option
(mouse click) without having to navigate into Paste Special options window?

I would like this option to be available to all of my workbooks.


Thanks in advance for any help you can provide,


Stephen