Cacher is the code snippet organizer for pro developers

Function Значок(control As IRibbonControl, ByRef image) 'В `XML` файле пишем getImage="Значок".
    On Error GoTo выход
    Select Case control.ID 'Вставить идентификатор!
        Case "Кнопка": Set image = LoadPicture(ThisWorkbook.Path & "\TEST.jpg")
'        Case "Кнопка": Set image = CommandBars.GetImageMso("FileOpen", 32, 32)
    End Select
    On Error GoTo 0
выход:
End Function

Public Sub getImages(control As IRibbonControl, ByRef image)
    Set Image = LoadPicture(getAppPath & control.Tag) 'В `XML` ещё используется » “Tag”.
        image = "HappyFace" ' или ImageMso
End Sub