Public Sub onLoadImage(imageId As String, ByRef image)
    Set image = LoadPictureGDI(ThisWorkbook.Path & "\" & imageId)
End Sub

Sub onClickTlacitko(control As IRibbonControl)
    MsgBox control.id
End Sub

Sub OnTogglePrepinac(control As IRibbonControl, pressed As Boolean)
    MsgBox pressed
End Sub

Sub onChangeEditBox(control As IRibbonControl, text As String)
    MsgBox text
End Sub

Sub onChangeComboBox(control As IRibbonControl, text As String)
    MsgBox text
End Sub

Sub galerie_getItemImage(control As IRibbonControl, _
        index As Integer, ByRef image)
    Set image = LoadPictureGDI(ThisWorkbook.Path & _
            "\" & index + 1 & ".png")
End Sub

Sub galerie_getItemCount(control As IRibbonControl, ByRef count)
    count = 6
End Sub