getImage

Gibt ein IPictureDisp Object oder ein ImageMso an das Ribbon Control zurück. Beispiel unter Eigene Icons / Bilder in Ribbon Controls verwenden

Public Sub getImages(control As IRibbonControl, _
                     ByRef image)
' Läd ein Bild ohne Transparenz in das Ribbon
' Achtung nur gültige Bildformate verwenden (siehe OH)
   
    Set Image = LoadPicture(getAppPath & control.Tag)
  
' oder ein ImageMso
 
    image = "HappyFace" 
End Sub