Open XML 形式のファイルを使用して Office Fluent リボンをカスタマイズする

Microsoft Office Fluent ユーザー インターフェイスのリボン コンポーネントを使用すると、ユーザーは Office アプリケーションを柔軟に操作できます。 リボン機能拡張 (RibbonX) では、単純なテキストベースの宣言型 XML マークアップを使用して、リボンを作成およびカスタマイズします。

このトピックのコード例では、アプリケーションレベルのカスタマイズを追加する方法とは対照的な、単一ドキュメントのリボンにカスタム コンポーネントを追加する方法を示します。 次の手順では、Word の既存のリボンに、カスタム タブ、カスタム グループ、およびカスタム ボタンを追加します。 さらに、ドキュメントに会社名を挿入するボタンのコールバック プロシージャも実装します。

1. 任意のテキスト エディターでカスタマイズ ファイルを作成し 、customUI.xmlという 名前のファイルを保存します。

2. 次の XML マークアップをファイルに追加し、ファイルを閉じて保存します。

    <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
      <ribbon> 
        <tabs> 
          <tab id="CustomTab" label="My Tab"> 
            <group id="SampleGroup" label="Sample Group"> 
              <button id="Button" label="Insert Company Name" size="large" onAction="ThisDocument.InsertCompanyName" /> 
            </group > 
          </tab> 
        </tabs> 
      </ribbon> 
    </customUI> 
   

3. デスクトップに customUI というフォルダーを作成し、XML カスタマイズ ファイルをそのフォルダーにコピーします。

4. カスタム スキーマで XML マークアップを検証します。

   注:

   この手順は省略できます。

5. Word で文書を作成し、 RibbonSample.docm という名前で保存します。

6. Visual Basic エディターを開き、 ThisDocument コード モジュールに次の手順を追加します。 ドキュメントを閉じて保存します。

     Sub InsertCompanyName(ByVal control As IRibbonControl) 
     ' Inserts the specified text at the beginning of a range or selection. 
     Dim MyText As String 
     Dim MyRange As Object 
     Set MyRange = ActiveDocument.Range 
     MyText = "Microsoft Corporation" 
     ' Range Example: Inserts text at the beginning 
     ' of the active document 
     MyRange.InsertBefore (MyText) 
     ' Selection Example: 
     'Selection.InsertBefore (MyText) 
   End Sub 
   
   

7. .zip 拡張子をドキュメント ファイル名に追加し、そのファイルをダブルクリックして開きます。

8. デスクトップから zip ファイルに customUI フォルダーをドラッグして、カスタマイズ ファイルをコンテナーに追加します。

9. .rels ファイルをデスクトップに展開します。 .rels ファイルを含む _rels フォルダーがデスクトップにコピーされます。

10. .rels ファイルを開き、次の行を最後の Relationship タグとRelationships タグの間に追加します。 これにより、ドキュメント ファイルとカスタマイズ ファイルの間にリレーションシップが作成されます。

     <Relationship Id="someID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml" />
    

11. ファイルを閉じて保存します。

12. .rels フォルダーをデスクトップからドラッグしてコンテナー ファイルに戻し、既存のファイルを上書きします。

13. .zip 拡張子を削除して、ドキュメント ファイルの名前を元の名前に戻します。

14. ドキュメントを開き、リボンに [マイ タブ] タブが表示されていることを確認します。

15. タブを選択し、ボタン コントロールを含む [サンプル グループ] グループに注目します。

16. ボタンを選択して、文書に会社名を挿入します。

関連項目

• Office Fluent リボンの概要
• Office Fluent リボンのカスタマイズに管理対象 COM アドインを使用する
• Office Fluent リボンのカスタマイズに Visual Basic COM アドインを使用する

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。