ワードマクロの実行ボタンをリボンに登録する【図解】

この記事では、ワードマクロ（Word VBA）の実行ボタンをワード文書のリボンに追加する方法を紹介します。

マクロを簡単に呼び出したい方におすすめです。

この記事のステップを実施すると、どのワード文書を開いても、マクロ実行ボタンがリボン上に表示され、簡単にマクロを呼び出せるようになります。

以下のイラストのように、リボン上にタブ、グループ、及びマクロ実行ボタンが表示されます。

これによって、どのワード文書からも、マクロをワンクリックで呼び出せるようになります。

この方法を応用すると、以下のようにアイコンを表示させることも可能です。

また、以下のように、１つのタブの中に複数のグループを作成し、各グループ内に複数のマクロ実行ボタンを作ることもできます。

リボン上ではなく、以下のイラストのように、クイックアクセスツールバー上にマクロ実行ボタンを作成する方法については、別の記事をご参照ください。

それでは、この記事の内容に入ります。

全体の流れ

この方法の全体の流れを最初に示します。

この方法のステップは、大きく分けると４つです。

step
01マクロ入りのdotmファイルを作成する

step
02customUI.xmlファイルを作成する

step
03dotmファイル中へのcustomUI.xmlの配置と.relsファイルの編集を行う

step
04ワードのスタートアップフォルダに完成dotmファイルを配置する

各ステップについて、以下に説明します。

各ステップの手順

メッセージ表示マクロを例にして、各ステップを説明します。

ステップ０１：マクロ入りのdotmファイルを作成する

ステップ０２：customUI.xmlファイルを作成する

ステップ０３：dotmファイル中へのcustomUI.xmlの配置と.relsファイルの編集を行う

ステップ０４：ワードのスタートアップフォルダにdotmファイルを配置する

マクロ実行ボタンの削除の仕方

マクロ実行ボタンを削除したい場合は、開いているワードファイルをすべて閉じてから、スタートアップフォルダから対応dotmファイルを削除してください（削除しなくても、スタートアップフォルダから出すだけでも、マクロ実行ボタンは消えます）。

（dotmファイル中には、実行ボタンの情報だけでなく、マクロも含まれているため、dotmファイルを削除すると、中のマクロも一緒に消えてしまうことに注意してください）

ワードのスタートアップフォルダの開き方は、上にも紹介しましたが、別の記事にも独立して紹介していますので、必要に応じて参照してみて下さい。

各自のマクロの登録の仕方

今回は、メッセージ表示マクロを例にしてマクロ実行ボタンをリボンに登録しましたが、以下の手順でご自身のマクロを登録できます。

１．ステップ０１の手順７で、各自のマクロを標準モジュールに登録します

２．ステップ０２の手順３で、自分用にカスタマイズしたcustomUI.xml用コードを使用します

.relsファイルの内容は常に同じです（今回紹介したものをそのまま使いまわせるので、カスタマイズする必要はありません）

customUI.xml中のどの部分が、リボン上のタブ名、グループ名、及びボタン名と対応するかは、下記の通りです。

customUI.xml中のマクロ名と、標準モジュール中のマクロ名との対応関係も以下に示しましたので参考にしてください。

リボン上のタブ名、グループ名、及びボタン名とcustomUI.xml中の名称との対応関係

リボン上のタブ名、グループ名、及びボタン名とcustomUI.xml中のものとの対応関係は、以下の通りです。

customUI.xml中のコード上のタブ名、グループ名、及びボタン名を、お好きな名前に変更してカスタマイズしてください。

customUI.xml中のマクロ名と、標準モジュール中のマクロ名との対応関係

customUI.xml中のマクロ名と、標準モジュール中のマクロ名との対応関係は、以下のイラストの通りです。

マクロ名は何でもかまいませんが、これら２つのコードの中で、マクロ名を同じにする必要があります。

(control As IRibbonControl) の部分は、そのまま使用できます。

この方法の応用例

上に紹介したものは一番単純な例ですが、以下に、さまざまな応用例を示します。

• 基本例　：既に示したもの
• 応用例１：マクロボタンの上にアイコン（大または小）を設置する
• 応用例２：１つのグループに複数のマクロ実行ボタンを表示する
• 応用例３：複数のグループを作成し、各グループに複数のマクロ実行ボタンを表示する
• 応用例４：複数のタブを作成し、各タブに１つまたは複数のグループを表示する

各応用例では、以下の４つを示しています。

• 実際のリボン表示
• 標準モジュールに貼り付けるマクロ例（メッセージ表示マクロ）
• リボン表示に対応するcustomUI.xmlのテンプレートコード
• 簡単な解説とカスタマイズのポイント

マクロ名や表示させたいタブ、グループ、マクロ実行ボタン、アイコンの数や種類は個人によって異なるため、上記の情報を基に各自が好きなようにカスタマイズしてください。

カスタマイズは、上で既に紹介した「各自のマクロの登録の仕方」を参考にしてください。

以下の応用例では、コードの一部が太字であったり、色が付いていたりしますが、メモ帳にはそのままコピーして使用できます。

登録する各自のマクロは、複数のモジュールに分けて登録していただいてもかまいません。

基本例：既に上で示したもの

この例は、１つのタブの中に１つのグループをつくり、その中に１つのマクロ実行ボタンを表示させる最もシンプルな例です。

リボン表示

標準モジュール（Module1）

Sub MyMacro1(control As IRibbonControl)
    MsgBox "マクロ１が実行されました！"
End Sub

赤字で示した部分がカスタマイズ部分です。

マクロ名は、以下のcustomUI.xml中のonActionの値と同じにします。

customUI.xml

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="CustomTab" label="カスタムタブ">
                <group id="CustomGroup" label="カスタムグループ">
                    <button id="MyButton1" label="マクロ1実行" onAction="MyMacro1" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

赤字で示した部分がカスタマイズ部分です。

応用例１：マクロボタンの上にアイコンを設置する

応用例１－１：マクロ実行ボタンの上に大きなアイコンを表示する

リボン表示

標準モジュール（Module1）

Sub MyMacro1(control As IRibbonControl)
    MsgBox "マクロ１が実行されました！"
End Sub

マクロ名は、以下のcustomUI.xml中のonActionの値と同じにします。

customUI.xml

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="CustomTab" label="カスタムタブ">
                <group id="CustomGroup" label="カスタムグループ">
                    <button id="MyButton1" imageMso="MailMergeMergeToPrinter" size="large" label="マクロ1実行" onAction="MyMacro1" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

customUI.xml中のコードに、アイコン表示用のコード（以下の赤色部分）を追加することで、マクロボタンの上にアイコンを表示させることができます。

imageMso="MailMergeMergeToPrinter" でアイコンの種類を指定します。

"と"の間に、好きなアイコン名（この場合は、MailMergeMergeToPrinter）を記述します。

size="large" を記載すると表示されるアイコンが大きくなります。

何個ボタンが登録されていようとも、 <buttonと/>の間にこの記述を差し込むことで、対応するマクロ実行ボタンの上にアイコンを表示できます。

アイコン名と対応アイコン表示は、こちらのサイトに紹介されています。

こちらのサイトからは、アイコン一覧のPDFファイルをダウンロードできます（ページの下の方の「Microsoft-Office-2016_365-imageMso-Gallery.pdf」をクリックするとダウンロードできます。

size="large" の部分を削除すると、以下の応用例１－２ようにアイコン表示が小さくなります。

応用例１－２：マクロ実行ボタンに小さなアイコンを表示する

リボン表示

標準モジュール（Module1）

Sub MyMacro1(control As IRibbonControl)
    MsgBox "マクロ１が実行されました！"
End Sub

マクロ名は、以下のcustomUI.xml中のonActionの値と同じにします。

customUI.xml

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="CustomTab" label="カスタムタブ">
                <group id="CustomGroup" label="カスタムグループ">
                    <button id="MyButton1" imageMso="MailMergeMergeToPrinter" label="マクロ1実行" onAction="MyMacro1" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

この例は、上の例（応用例１－１）のsize="large" の部分を削ったものです。

上のイラストを見ると、マクロアイコンが小さくなっており、マクロ実行ボタンの左に表示されているのが分かります。

応用例２：１つのグループに複数のマクロ実行ボタンを表示する

リボン表示

標準モジュール（Module1）

Sub MyMacro1(control As IRibbonControl)
    MsgBox "マクロ１が実行されました！"
End Sub

Sub MyMacro2(control As IRibbonControl)
    MsgBox "マクロ２が実行されました！"
End Sub

Sub MyMacro3(control As IRibbonControl)
    MsgBox "マクロ３が実行されました！"
End Sub

各マクロ名が重複しないように、番号などを付けるか、ユニークな名前を付けるようにします。

各マクロ名は、以下のcustomUI.xml中の対応するonActionの値と同じにします。

customUI.xml

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="CustomTab" label="カスタムタブ">
                <group id="CustomGroup" label="カスタムグループ">
                    <button id="MyButton1" imageMso="Cut" label="マクロ1実行" onAction="MyMacro1" />
                    <button id="MyButton2" imageMso="MailMergeMergeToPrinter" label="マクロ2実行" onAction="MyMacro2" />
                    <button id="MyButton3" imageMso="HappyFace" label="マクロ3実行" onAction="MyMacro3" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

<groupと</group>の間に、追加したいマクロ実行ボタンの数だけ、<button・・・/>の行を追加することで、１つのグループ内に複数のボタンを配置できます。

button idの値とonActionの値は、重複しないように、番号などを付けるか、ユニークな名前を付けて区別します。

応用例３：複数のグループを作成し、各グループに複数のマクロ実行ボタンを表示する

リボン表示

標準モジュール（Module1）

Sub MyMacro1(control As IRibbonControl)
    MsgBox "マクロ１が実行されました！"
End Sub

Sub MyMacro2(control As IRibbonControl)
    MsgBox "マクロ２が実行されました！"
End Sub

Sub MyMacro3(control As IRibbonControl)
    MsgBox "マクロ３が実行されました！"
End Sub

Sub MyMacro4(control As IRibbonControl)
    MsgBox "マクロ４が実行されました！"
End Sub

Sub MyMacro5(control As IRibbonControl)
    MsgBox "マクロ５が実行されました！"
End Sub

Sub MyMacro6(control As IRibbonControl)
    MsgBox "マクロ６が実行されました！"
End Sub

各マクロ名が重複しないように、番号などを付けるか、ユニークな名前を付けるようにします。

各マクロ名は、以下のcustomUI.xml中の対応するonActionの値と同じにします。

customUI.xml

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="CustomTab" label="カスタムタブ">
                <group id="CustomGroup1" label="カスタムグループ1">
                    <button id="MyButton1" imageMso="Lock" size="large" label="マクロ1実行" onAction="MyMacro1" />
                    <button id="MyButton2" imageMso="AutoSum" size="large" label="マクロ2実行" onAction="MyMacro2" />
                    <button id="MyButton3" imageMso="MacroPlay" size="large" label="マクロ3実行" onAction="MyMacro3" />
                </group>
                <group id="CustomGroup2" label="カスタムグループ2">
                    <button id="MyButton4" imageMso="Cut" label="マクロ4実行" onAction="MyMacro4" />
                    <button id="MyButton5" imageMso="FindDialog" label="マクロ5実行" onAction="MyMacro5" />
                    <button id="MyButton6" imageMso="HappyFace" label="マクロ6実行" onAction="MyMacro6" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

<tabと</tab>の間に、追加したいグループの数だけ、<group・・・</group>の行を追加することで、１つのタブ内に複数のグループを配置できます。

group id、button id、及びonActionの値は、重複しないように、番号などを付けるか、ユニークな名前を付けて区別します。

応用例４：複数のタブを作成し、各タブに１つまたは複数のグループを表示する

リボン表示

タブ１

タブ２

標準モジュール（Module1）

Sub MyMacro1(control As IRibbonControl)
    MsgBox "マクロ１が実行されました！"
End Sub

Sub MyMacro2(control As IRibbonControl)
    MsgBox "マクロ２が実行されました！"
End Sub

Sub MyMacro3(control As IRibbonControl)
    MsgBox "マクロ３が実行されました！"
End Sub

Sub MyMacro4(control As IRibbonControl)
    MsgBox "マクロ４が実行されました！"
End Sub

Sub MyMacro5(control As IRibbonControl)
    MsgBox "マクロ５が実行されました！"
End Sub

各マクロ名が重複しないように、番号などを付けるか、ユニークな名前を付けるようにします。

各マクロ名は、以下のcustomUI.xml中の対応するonActionの値と同じにします。

customUI.xml

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="CustomTab1" label="カスタムタブ1">
                <group id="CustomGroup1" label="カスタムグループ1">
                    <button id="MyButton1" imageMso="AutoFormat" size="large" label="マクロ1実行" onAction="MyMacro1" />
                </group>
            </tab>
            <tab id="CustomTab2" label="カスタムタブ2">
                <group id="CustomGroup2" label="カスタムグループ1">
                    <button id="MyButton2" imageMso="Lock" size="large" label="マクロ2実行" onAction="MyMacro2" />
                </group>
                <group id="CustomGroup3" label="カスタムグループ2">
                    <button id="MyButton3" imageMso="Cut" label="マクロ3実行" onAction="MyMacro3" />
                    <button id="MyButton4" imageMso="FindDialog" label="マクロ4実行" onAction="MyMacro4" />
                    <button id="MyButton5" imageMso="HappyFace" label="マクロ5実行" onAction="MyMacro5" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

<tabs>と</tabs>の間に、追加したいタブの数だけ、<tab・・・</tab>の行を追加することで、リボン内に複数のタブを配置できます。

tab id、group id、button id、及びonActionの値は、重複しないように、番号などを付けるか、ユニークな名前を付けるようにします。

まとめ

上の応用例を参考にして、好みのレイアウトでマクロをリボンに登録してみてくださいね！