カスタムリボン用のOfficeファイルに画像を埋め込む方法

Question

Excel用のカスタムリボン拡張を開発していますが、コントロールで異なるカスタム画像が必要です。私はファイルシステムにあるいくつかのイメージを使用することができましたが、これらのイメージを.xlsmファイルに埋め込みたいと思います。 コントロールのイメージを更新するVBAコードから参照することはできますか？テスト目的のために

、これは私のカスタムリボン定義するXMLです：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="ribbonLoaded"> 
    <ribbon> 
    <tabs> 
     <tab idMso="TabHome" > 
     <group id="customGroup1" label="My Group" insertAfterMso="GroupFont"> 
      <button id="customButton1" label="Click Me" size="large" onAction="Macro1" getImage="getButtonImage"/> 
     </group> 
     </tab> 
    </tabs> 
    </ribbon> 
</customUI> 

を、これはcustomButton1コントロールの画像を変更するマクロです：

Dim imgIndex As Long 

Public Sub getButtonImage(ByVal control As IRibbonControl, ByRef Image) 
Select Case control.ID 
    Case "customButton1" 
    Set Image = LoadPicture("img" + Trim(Str(imgIndex)) + ".bmp") 
    imgIndex = (imgIndex + 1) Mod 2 
    End Select 
End Sub 

私が追加しようとしました.xlsm内のbmpファイルを参照してリレーションシップファイル（.rels）を更新するように参照しますが、VBAから参照する方法はわかりませんが、Excelでファイルを開いて保存すると自動的に削除されます...

何か助けていただければ幸いです！

Answer 1

イメージがcustomUIに埋め込まれている場合、VBAをコントロールに追加する必要はありません。ただ、imageタグで画像に同じIDを使用します。

<button id="button1" label="Test" size="large" image="TestID" onAction="ButtonOnAction" /> 

私のサンプルはcustomUIのXMLに記載されていなければなりませんID「テストID」、とのイメージをadressingされる - 見つけるためにCustom UI EditorでcustomUIノードを展開またはイメージIDを変更します（または、新しいイメージを追加するためにエディタを使用します）。