Excelアドイン(マクロ)をリボンに登録(ExcelVBA)

ゆーしゃん
2022.04.04
845 views

概要

Excelアドイン(マクロ)をリボンに登録し、
どのExcelファイルを開いていても、リボンからマクロを実行可能にする

作成した理由

毎日毎日、大量のExcelファイルの編集を行う仕事をしていると、
「自分専用の便利なマクロ達」が蓄積されていくと思います。

便利なマクロ達を登録している
「便利なマクロ.xlsm」等をバックグラウンドで開いてマクロを使っておりましたが…

マクロ実行時に「ファイル名.xlsm！マクロ名」と表示される為、
次第に「どのマクロを実行するのか」を目視で探すのが億劫になっていきました。

私(開発者)が使用する分には
「ショートカットでマクロ実行」とすれば問題なかったのですが、

マクロ配布時に
「どのマクロがどのショートカットかなんて、いちいち覚えるの怠いんですけど？？？」
と我儘ご要望を頂いた為、↓記事を参考に作成致しました。

https://officeforest.org/wp/2018/05/13/excel%E3%81%A8access%E3%81%AB%E7%8B%AC%E8%87%AA%E3%81%AE%E3%83%AA%E3%83%9C%E3%83%B3%E3%82%92%E8%BF%BD%E5%8A%A0%E3%81%99%E3%82%8B/

サンプルのリボン_実装手順&解説

１、リボンに登録したい「●●.xlsm」を「xlam」形式で保存する
※本記事では「挨拶.xlsm」をアドイン化

２、リボンに登録したい「●●.xlsm」を「xlam」形式で保存する
※下記に保存されていればOK

◆アドイン格納パス
%HOMEDRIVE%\Users\%Username%\AppData\Roaming\Microsoft\AddIns

３、上記アドイン格納パスに「●●.xlam」が格納されていない場合は、
「●●.xlam」ファイルを上記アドイン格納パスに移動させる

４、「●●.xlam」を「●●.xlam.zip」と拡張子を付け足す

５、「●●.xlam.zip」を右クリック→「プログラムから開く」→「エクスプローラー」をクリック

６、「●●.xlam.zip」フォルダ内を全て削除

７、下記「アドインフォルダ構成」をダウンロードし、zipファイルを解凍する

アドインフォルダ構成ダウンロード

８、解凍した「アドインフォルダ構成」内を全て、「●●.xlam.zip」フォルダ内にコピーする

９、「●●.xlam.zip」を「●●.xlam」に戻す

１０、「Excelアドイン」から「●●.xlam」を参照設定する
※本記事では「挨拶.xlsm」をアドイン化している為「挨拶」を参照

１１、サンプルリボンが表示されている事を確認

Excelアドイン_リボンからマクロ呼び出し処理作成

１、「●●.xlam」の「Module1」モジュールに下記コードを追加し、上書き保存する

Option Explicit

'概要：Excelリボンからマクロ呼び出し
'実装方法：下記プロシージャをリボンからマクロを呼び出したい処理だけ記述する
Sub Call_マクロ名(ByVal control As IRibbonControl)
    
    Call マクロ名

End Sub

Option Explicit

'概要：Excelリボンからマクロ呼び出し

'実装方法：下記プロシージャをリボンからマクロを呼び出したい処理だけ記述する

Sub Call_マクロ名(ByVal control As IRibbonControl)

Call マクロ名

End Sub

下記画像のように、
Call_マクロ名
Call マクロ名
となるように紐づける事。
※引数「ByVal control As IRibbonControl」は変更しない事

２、「●●.xlam」を上書き保存し、Excelファイルを全て閉じる

リボン_修正手順&解説

１、「●●.xlam」を「●●.xlam.zip」と拡張子を付け足す

２、「●●.xlam.zip」を右クリック→「プログラムから開く」→「エクスプローラー」をクリック

３、「customUI」フォルダ内「customUI.xml」を適当な別フォルダにコピーする

４、コピーした「customUI.xml」をメモ帳で開く
※「Visual Studio Code」で開くと下記画像のように視覚的に分かりやすいのでおススメ

５、コピーした「customUI.xml」を下記画像の結びつき先を見ながら修正する

◆注意点
各パーツ類のidは重複させない事。
※コピペ時に重複してしまいがちなので注意

◆解説
<tab id=”TabA” label=”TabA“>
→リボンのタブ表示名を記載

<group id=”GroupA” label=”GroupA“>
→グループ名を記載

<button id=”ButtonA” imageMso=”ListMacros” size=”large” label=”ButtonA” onAction=”マクロ名”/>
→ボタン名を記載

<button id=”ButtonA” imageMso=”ListMacros” size=”large” label=”ButtonA” onAction=”マクロ名“/>
→実行マクロ名「Call_●●」を記載

<button id=”ButtonA” imageMso=”ListMacros” size=”large” label=”ButtonA” onAction=”マクロ名”/>
→「Office 365アイコン(imageMso)一覧」サイトを参考に、表示したいアイコン名を記載
※特に拘りがなければ「ListMacros」固定でOK