<スポンサーリンク>
右クリックにマクロを登録すると非常にマクロの有用性が広がります。
また、年配の方にも使いやすいプログラムになりますので、
ぜひ覚えていってください！！
【VBA】右クリックのメニューにマクロを追加する方法
右クリックのメニューのVBAのプログラムを登録する方法は、下記の通りです。
※ダブルクリックでコピーできます。
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 | 'ブックが開いた時に、右クリックに登録Private Sub Auto_Open() With CommandBars("Cell").Controls.Add(Before:=1) '1が一番上 .Caption = "RC_TEST(&P)" '表示名 .OnAction = "TEST" 'プログラム名 End WithEnd Sub'ブックを閉じたときに、右クリックのメニューを消す。Private Sub Auto_Close() CommandBars("Cell").Controls("RC_TEST(&P)").DeleteEnd Sub’実行するプログラムSub TEST()MsgBox "右クリック"End Sub |
プログラム説明
メニューの登録と削除
上記の通り、
右クリックで登録するだけなら、
1 2 3 4 | With CommandBars("Cell").Controls.Add(Before:=1) '1が一番上 .Caption = "RC_TEST(&P)" '表示名 .OnAction = "TEST" 'プログラム名End With |
で終わりなのですが、
これを実行したままにすると、なんと、メニューがそのまま残り続けます。
※今回の場合、 「RC_TEST(&P)」 のメニューが残り続ける。
ですので、きちんとメニューを消すことが大事です。
そのプログラムが、
1 | CommandBars("Cell").Controls("RC_TEST(&P)").Delete |
となっています。
表示名と一致しないときちんと消えないので、ご注意ください。
Auto_Open() Auto_Close() との組み合わせ
メニューを作った後に、きちんと消す必要がありますので、
基本的にはAuto_Open() Auto_Close()との相性が抜群になります。
そのブックを立ち上げたときに、自動的にメニューが追加されますので、
そのブックで使えるプログラムを登録しておきましょう！！
途中で落ちてしまった時、、
途中でプログラムが落ちてしまった時は、
メニューが残ったままになってしまいます。。
非常に邪魔ですので、
1 2 | '右クリックのメニューの初期化はApplication.CommandBars("Cell").Reset |
で、初期化してあげてください。
右クリックに常時追加してあるメニューも消えますのでご注意ください。
コメント欄