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

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

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2008/04/11 09:42

どのようにカスタマイズしたいのかわかりませんので、とりあえずエクセルに

組み込まれたコマンドに限った操作です。

右クリックメニューに項目を追加
　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/ExcelComman …
'
右クリックメニューの指定項目を削除する
　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

この回答へのお礼

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

お礼日時：2008/04/11 10:09