VBAでExcel2016ショートカットメニューをカスタマイズする方法

Excel 2007より前は、VBAプログラマーはCommandBarオブジェクトを使用して、カスタムメニュー、カスタムツールバー、およびカスタムショートカット（右クリック）メニューを作成していました。Excel 2007以降、CommandBarオブジェクトはかなり奇妙な位置にあります。メニューまたはツールバーをカスタマイズするコードを作成すると、Excelはそのコードをインターセプトし、コマンドの多くを無視します。

Excel 2007（以降のバージョンと同様）は、よく考えられたインターフェイスの機能強化を表示する代わりに、カスタマイズしたメニューとツールバーを[アドイン]という名前の包括的なリボンタブにダンプするだけです。

メニューとツールバーのカスタマイズは、[アドイン]→[メニューコマンド]または[アドイン]→[カスタムツールバー]グループで終了します。ただし、ショートカットメニューのカスタマイズ（CommandBarオブジェクトも使用）は、いつものように機能します。

結論は？CommandBarオブジェクトはもうあまり役に立ちませんが、ショートカットメニューをカスタマイズする唯一の方法です。

セルのショートカットメニューに新しいアイテムを追加する

以下に、セルを右クリックしたときに表示されるショートカットメニューに新しい項目を追加するサンプルコードを示します。これらの例をニーズに適合させることができるはずです。

セルのショートカットメニューから使用できるようにすることで、ケースの変更ユーティリティを少し拡張できます。

AddToShortcutプロシージャは、セルのショートカットメニューに新しいメニュー項目を追加します。NewControlという名前のオブジェクトのCaptionプロパティとOnActionプロパティを変更することで、独自のマクロを指すように調整できます。

サブAddToShortCut（）
  CommandBarとしての薄暗いバー
  CommandBarButtonとしてのDimNewControl
  DeleteFromShortcut
  Set Bar = Application.CommandBars（ "Cell"）
  NewControl = Bar.Controls.Add_を設定します
     （タイプ：= msoControlButton、ID：= 1、_
     一時的：= True）
  NewControlを使用
    .Caption =“＆Change Case”
    .OnAction =“ ChangeCase”
    .Style = msoButtonIconAndCaption
  で終わる
エンドサブ

ショートカットメニューを変更しても、Excelを再起動するまでその変更は有効です。つまり、変更されたショートカットメニューは、VBAコードを含むブックを閉じてもリセットされません。したがって、ショートカットメニューを変更するコードを作成する場合、ほとんどの場合、変更の効果を元に戻すコードを作成します。

DeleteFromShortcutプロシージャは、セルのショートカットメニューから新しいメニュー項目を削除します。

サブDeleteFromShortcut（）
  エラー時に次を再開
  Application.CommandBars（ "Cell"）。Controls _
    （「＆ChangeCase」）。削除
エンドサブ

これは、セルを右クリックした後に新しいメニュー項目がどのように表示されるかを示しています。

VBAでExcel2016ショートカットメニューをカスタマイズする方法

カスタムメニュー項目を表示するセルショートカットメニュー：大文字と小文字の変更。

いくつかの変数の宣言後の最初の実際のコマンドは、DeleteFromShortcutプロシージャを呼び出します。このステートメントにより、ショートカットの[セル]メニューに[大文字と小文字を区別する]メニュー項目が1つだけ表示されます。その行をコメントアウトして（行の先頭にアポストロフィを付けて）、手順を数回実行してみてください。ただし、夢中にならないでください。

セルを右クリックすると、[ケースの変更]メニュー項目の複数のインスタンスが表示されます。DeleteFromShortcutを複数回（追加のメニュー項目ごとに1回）実行して、すべてのエントリを削除します。

最後に、ブックを開いたときにショートカットメニュー項目を追加し、ブックを閉じたときにメニュー項目を削除する方法が必要です。これを行うのは簡単です。次の2つのイベントプロシージャをThisWorkbookコードモジュールに追加するだけです。

プライベートサブWorkbook_Open（）
AddToShortCutを呼び出す
エンドサブ
Private Sub Workbook_BeforeClose（Cancel As Boolean）
DeleteFromShortcutを呼び出す
エンドサブ

Workbook_Openプロシージャは、ブックが開かれたときに実行され、Workbook_BeforeCloseプロシージャは、ブックが閉じられる前に実行されます。ちょうど医者が注文したもの。

Excel2013とExcel2016の違いは何ですか？

VBAを使用してExcel2007以前のショートカットメニューを操作したことがある場合は、大幅な変更に注意する必要があります。

以前は、コードがショートカットメニューを変更した場合、その変更はすべてのブックで有効でした。たとえば、セルの右クリックメニューに新しいアイテムを追加した場合、その新しいアイテムは、任意のブック（および後で開く他のブック）のセルを右クリックしたときに表示されます。つまり、ショートカットメニューの変更はアプリケーションレベルで行われました。

Excel2013とExcel2016は、単一のドキュメントインターフェイスを使用します。これは、ショートカットメニューに影響します。ショートカットメニューに加えた変更は、アクティブなブックウィンドウにのみ影響します。ショートカットメニューを変更するコードを実行しても、アクティブウィンドウ以外のウィンドウのショートカットメニューは変更されません。これは、物事が以前どのように機能していたかからの根本的な逸脱です。

別の工夫：アクティブなウィンドウに変更されたショートカットメニューが表示されているときにユーザーがワークブックを開く（または新しいワークブックを作成する）と、新しいワークブックにも変更されたショートカットメニューが表示されます。つまり、新しいウィンドウには、新しいウィンドウを開いたときにアクティブだったウィンドウと同じショートカットメニューが表示されます。

結論：以前は、ショートカットメニューを変更したワークブックまたはアドインを開いた場合、変更したショートカットメニューをすべてのワークブックで使用できることが保証されていました。あなたはもはやその保証を持っていません。

Access 2007 でカスタムショートカットメニューを作成する

Access 2007 ではマクロデザインウィンドウがそれ以降のバージョンと異なるため、Access 2007 を使用している場合は、次のセクションを展開して理解してください。

Access 2007 の手順 1: メニューコマンドを含むマクログループを作成する

この手順では、マクログループを作成します。各マクロはショートカットメニュー上の個別のコマンドになります。

マクログループとは何ですか?

マクログループは、2 つ以上の独立したマクロを含む単一のマクロオブジェクトです。個々のマクロは、「マクロ名」列に各マクロの名前を入力することで識別されます。次の図では、 Macro3 が マクログループです。 NotFoundMsg と FoundMsg は グループ内の個別のマクロであり、各マクロは 2 つのマクロアクションで構成されます。

マクログループの例

注: [マクロ名]列はデフォルトでは非表示になっています。[マクロ名] 列を表示するには、 [デザイン]タブの[表示/非表示]グループで、 [マクロ名]をクリックします。

[作成] タブの [その他]グループで、 [マクロ] をクリックします。このコマンドが使用できない場合は、[モジュール] ボタン または [クラスモジュール]ボタンの下にある矢印をクリックし、[ マクロ]をクリックします。
[デザイン] タブの [表示/非表示] グループで、 [ マクロ 名]をクリックして[マクロ名]列を表示します。
カスタムショートカットメニューに必要な各コマンドについて:
- [マクロ名]列に、ショートカットメニューに表示するテキスト (「レポートの印刷」や「保存」など) を入力します。
  注: キーボードを使用してコマンドを選択できるようにアクセスキーを作成するには、コマンド名の中でアクセスキーにしたい文字の前にアンパサンド (&) を入力します (たとえば、「&Save」)。この文字はメニュー上で下線が引かれます。
- [アクション]列で、ショートカットメニューのコマンドをクリックしたときに実行する最初のアクションを選択します。
- このコマンドを選択したときにさらに実行したいアクションがある場合は、後続の行に追加します。後続の各アクションでは、 「マクロ名」 セルを空白のままにしておきます。
  注: 2 つのメニューコマンドの間に線を作成するには、適切なメニューコマンドの間の[マクロ名]列にハイフン (-) を入力します。
マクロに名前を付けて保存します (例: mcrShortcutMenuCommands )。

次の図は、カスタムメニューまたはショートカットメニューのマクログループの例を示しています。

デザインビューのメニューマクログループ

Access 2007 の手順 2: メニューを作成するマクロを作成する

この手順は冗長に見えるかもしれませんが、手順 1 で作成したマクログループからショートカットメニューを作成するには、AddMenu マクロアクションを含む 2 番目のマクロを作成する必要があります。このマクロは「メニューマクロ」と呼ばれることもあります。

[作成] タブの [その他]グループで、 [マクロ] をクリックします。このコマンドが使用できない場合は、[モジュール] ボタン または [クラスモジュール]ボタンの下にある矢印をクリックし、[ マクロ]をクリックします。
マクロの最初の行で、 「アクション」リストの 「AddMenu」を選択します。
[アクションの引数]の [メニュー名]ボックスに、メニューの名前 (「レポートコマンド」など) を入力します。この引数は必須ではありませんが、手順 3 でメニューをリボンタブ ( フォームまたはレポートの[アドイン]タブなど) に追加する場合は、この引数を指定することをお勧めします。ステップ 3 でメニューがショートカットメニューとして追加された場合、 メニュー名 引数は無視されます。
[メニューマクロ名]ボックスに、手順 1 で作成したマクロの名前を入力します。
マクロを保存し、 mcrAddShortcutMenuなどの名前を付けます。

次の図は、手順 1 で設計したメニューを作成するメニューマクロの例を示しています。

デザインビューのメニューマクロ

Access 2007 の手順 3: コントロール、フォーム、レポート、またはデータベースにメニューを添付する

メニューを表示する場所に応じて、次の 1 つ以上の手順を使用します。

フォームまたはレポートの「アドイン」タブにメニューを追加します。

次の図に示すように、特定のフォームまたはレポートの[アドイン]タブにメニューを表示するには、この手順を使用します。
1. ナビゲーションウィンドウで、メニューを表示するフォームまたはレポートを右クリックし、 [デザインビュー]をクリックします。
2. [デザイン] タブの [表示/非表示] グループで、 [プロパティシート]をクリックします。
3. [プロパティシート] 作業ウィンドウの上部にあるリストから[フォーム] または [レポート]を選択して、オブジェクト全体を選択します。
4. プロパティシートの [その他]タブの [ショートカットメニュー] プロパティボックスに、手順 2 で作成したマクロの名前 (この例では「mcrAddShortcutMenu」) を入力します。
  
  次回フォームまたはレポートを開くと、リボンに[アドイン]タブが表示されます。タブをクリックするとメニューが表示されます。
  
  カスタムタブの追加や既定のタブの非表示など、リボンのカスタマイズ手法の詳細については、「 Access でカスタムリボンを作成する」の記事を参照してください。
  
  リボンは、Microsoft Office Fluent ユーザーインターフェイスのコンポーネントです。
メニューをフォーム、レポート、またはコントロールのショートカットメニューとして追加します。

次の図に示すように、特定のフォーム、レポート、またはコントロールを右クリックしたときにメニューを表示するには、この手順を使用します。
1. ナビゲーションウィンドウで、ショートカットメニューを表示するフォームまたはレポートを右クリックし、 [デザインビュー]をクリックします。
2. [デザイン] タブの [表示/非表示] グループで、 [プロパティシート]をクリックします。
3. ショートカットメニューをアタッチするコントロールまたはオブジェクトを選択します。
  
  注: オブジェクト全体を選択するには、 [プロパティシート] 作業ウィンドウの上部にあるリストから [フォーム] または [レポート]を選択します。
4. プロパティシートの [その他]タブの [ショートカットメニューバー] プロパティボックスに、手順 2 で作成したマクロの名前 (この例では「mcrAddShortcutMenu」) を入力します。
メニューをグローバルショートカットメニューとして追加する

この手順により、現在のデータベース内のデフォルトのショートカットメニューがすべて置き換えられます。特定のフォーム、レポート、またはコントロールにアタッチしたカスタムショートカットメニューは影響を受けません。
1. [Microsoft Office ボタン]をクリックし、 [アクセスオプション]をクリックします。
2. [アクセスオプション]ダイアログボックスで、 [現在のデータベース]をクリックします。
3. [リボンとツールバーのオプション]の [ショートカットメニューバー]ボックスに、手順 2 で作成したマクロの名前 (この例では「mcrAddShortcutMenu」) を入力します。

カスタムショートカットメニューは、それらがアタッチされているオブジェクトのデフォルトのショートカットメニューを置き換えます。これらのメニューで使用する特定の Access コマンドを保持したい場合は、 RunCommand アクションを使用して、コマンドを入れたいメニューのマクログループに入れます。
コントロールにアタッチされたカスタムショートカットメニューは、データベースで定義されている他のカスタムショートカットメニューよりも優先されます。フォームまたはレポートに添付されたカスタムショートカットメニューは、カスタムグローバルショートカットメニューよりも優先されます。
フォーム、レポート、またはデータベースのメニューマクロを指定すると、フォーム、レポート、またはデータベースが開かれるたびに、Access によってこのメニューマクロが実行されます。フォーム、レポート、またはデータベースが開いているときにメニューマクロ、またはそのコマンドを定義するマクログループに変更を加えた場合、変更を確認するには、フォーム、レポート、またはデータベースを閉じて再度開く必要があります。
サブメニューを作成するには、ステップ 1 に従って、サブメニューコマンドのみを含む別のマクログループを作成します。次に、ステップ 1 を再度実行して、上位レベルのメニューのコマンドを定義します。AddMenuマクロアクションを使用して、サブメニューを上位レベルのマクログループの項目として追加します。次の図は、サブメニューを含むメニューのマクログループと、その結果のショートカットメニューを示しています。マクログループの 3 行目は、 [エクスポート先...] サブメニュー ( mcrSubMenu ) を作成します。

メニューの各レベルのマクログループでAddMenuアクションを使用して、複数のレベルのサブメニューを作成できます。各 AddMenuアクションのMenu Name引数に必ず値を指定してください。そうしないと、サブメニューが上位レベルのメニューに空白行として表示されます。
マクロ条件は、トップレベルメニューマクロでのみサポートされます。つまり、メニューマクロで条件を使用して、特定のメニューまたはショートカットメニューを表示するかどうかを決定できますが、それは最上位のメニューのみに限られます。条件を使用して、メニュー上のコマンドまたはサブメニューを表示または非表示にすることはできません。条件を使用して、カスタムショートカットメニューまたはグローバルショートカットメニューを表示または非表示にすることもできます。
オプションで、手順 2 で作成したメニューマクロをマクログループの一部にすることができます。たとえば、さまざまなオブジェクトまたはコントロールに複数のショートカットメニューがある場合、必要なメニューマクロをすべて含む単一のマクロオブジェクトを作成できます。必ず 「マクロ名」 列を表示し、各マクロに一意の名前を入力してください。ステップ 3 では、次の表記を使用してマクロを参照します: マクログループ名.マクロ名。たとえば、 mcrAddShortcutMenus.AddMenu2です。