※ 2015/2/18 コードに一部誤りがあったので修正しました。

リボンをカスタマイズして、ホームやアドインといった既存のタブではない、カスタムタブを共有して複数のファイルで使いたい、という質問をいただきました。

そういえば、今までHPやブログでタブを共有する方法を取り上げたことが無かったので、今回改めてExcelを例に紹介することにします。

リボンのカスタムタブを共有する方法ですが、まずは基盤となるファイル(ホスト)を用意します。

・ホストファイルのリボンXML

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:nsShared="rbnShared">
  <ribbon>
    <tabs>
      <tab idQ="nsShared:tabShared" label="Shared Tab">
        <group idQ="nsShared:grpShared" label="Shared Group" />
      </tab>
    </tabs>
  </ribbon>
</customUI>

Custom UI Editor等でファイルをカスタマイズしたら、アドイン(xlam)として保存し、Excelで読み込みます(Excelのオプション → アドイン → Excel アドインの設定)。

この時点では上図のようにタブ(Shared Tab)とグループ(Shared Group)だけしか表示されません。

次に基盤の上に乗るファイル(ゲスト)を用意します。

・ゲストファイル1のリボンXML

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:nsShared="rbnShared">
  <ribbon>
    <tabs>
      <tab idQ="nsShared:tabShared">
        <group idQ="nsShared:grpShared">
          <button id="btnSample1" label="Sample Button 1" imageMso="HappyFace" size="large" onAction="btnSample1_onAction" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

・ゲストファイル1の標準モジュール

Option Explicit

Public Sub btnSample1_onAction(control As IRibbonControl)
  MsgBox control.ID, vbInformation + vbSystemModal
End Sub

用意ができたらホストファイルと同じようにアドインとして保存し、Excelで読み込むと・・・

何も表示されていなかったホストファイルのグループ(Shared Group)にゲストファイルのボタン(Sample Button 1)が表示され、クリック時のコールバック(btnSample1_onAction)も動作することが確認できました。

さらに、別のゲストファイルを追加することもできます。

・ゲストファイル2のリボンXML

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" xmlns:nsShared="rbnShared">
  <ribbon>
    <tabs>
      <tab idQ="nsShared:tabShared">
        <group idQ="nsShared:grpShared">
          <button id="btnSample2" label="Sample Button 2" imageMso="SadFace" size="large" onAction="btnSample2_onAction" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

・ゲストファイル2の標準モジュール

Option Explicit

Public Sub btnSample2_onAction(control As IRibbonControl)
  MsgBox control.ID, vbCritical + vbSystemModal
End Sub

このファイルも同様にアドインとして読み込むと・・・

もう一つボタン(Sample Button 2)が追加されました。

上記のように、名前空間を設定し、idQ属性で指定することで、リボンのタブを共有することができます。
設定が若干ややこしいかもしれませんが、慣れればすぐに設定できますので、カスタムタブの共有化を考えている方は是非お試しください。