Cómo incrustar imágenes en el archivo de Office para cinta personalizada

Question

Estoy desarrollando una extensión de cinta personalizada para Excel, en la que un control requiere diferentes imágenes personalizadas. Logré usar algunas imágenes ubicadas en mi sistema de archivos, pero me gustaría insertar estas imágenes dentro del archivo .xlsm. ¿Es posible hacerlo y hacer referencia a ellos desde el código VBA que actualiza la imagen del control?

Para propósitos de prueba, este es el XML que define mi cinta de encargo:

<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> 

Y esta es la macro que cambie la imagen del control 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 

He intentado añadir los archivos bmp dentro de .xlsm y hacer referencia a ellos actualizando el archivo de relaciones (.rels), pero no sé cómo hacer referencia a ellos desde VBA y, lo más importante, cuando abro el archivo con Excel y lo guardo, se eliminan automáticamente ...

¡Se agradece cualquier ayuda!

Answer 1

Si la imagen está incrustada en laUI personalizada, no necesita VBA para agregarla a un control. Sólo tiene que utilizar el mismo ID de la imagen en una image etiqueta:

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

Mi muestra se adressing la imagen con ID "testid", que debe ser encontrado en el XML customUI - expanda el nodo customUI en el Custom UI Editor encontrar o cambie la identificación de la imagen (o use el editor para agregar una nueva imagen).