次の方法で共有


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