エクセルの右クリックについて

質問

エクセルの右クリックで出てくるメニューをカスタマイズしたいのですが、どのようにしたらよいでしょうか。

回答No.1

misatoanna

どのようにカスタマイズしたいのかわかりませんので、とりあえずエクセルに
組み込まれたコマンドに限った操作です。

右クリックメニューに項目を追加
　Sub AddMigiMenu1()
　　Dim NewItem
　　Set NewItem = Application.CommandBars("Cell").Controls.Add _
　　　　(Type:=msoControlButton, ID:=109, Before:=4, Temporary:=False) '※
　　NewItem.Caption = "印刷プレビュー(&V)"
　　Set NewItem = Nothing
　End Sub
　※変更を固定しない場合は、Temporary:=True
　　追加するコマンドの内容とそれに対応するIDについては下記URLなどを
　　参照してください。
　　　http://homepage2.nifty.com/DreamyCat/ExcelCommandBars2.htm
'
右クリックメニューの指定項目を削除する
　a)項目名で指定する場合
　　Application.CommandBars("Cell").Controls("項目名").Delete
　b)メニューの位置で指定する場合
　　Application.CommandBars("Cell").Controls(2).Delete
'
右クリックメニューの位置を移動する
　Application.CommandBars("Cell").Controls("項目名").Move Before:=1
　※"コピー(&C)" や "挿入(&I)..." のように、メニュー項目そのままを記述。
'
右クリックメニューをデフォルトに戻す
　Application.CommandBars("Cell").Reset

自作マクロなどを追加する場合は、下記URLなど参照してください。
　http://officetanaka.net/excel/vba/tips/tips30.htm

お礼

有難う御座いました。少し高度ですがやってみます。