Try this menu version and see if it's closer
No images or anything and all it does is check/uncheck
Option Explicit
Dim B1 As Boolean, B2 As Boolean, B3 As Boolean, B4 As Boolean
Dim oRibbon As IRibbonUI
'Callback for customUI.onLoad
Sub OnRibbonLoad(ribbon As IRibbonUI)
Set oRibbon = ribbon
B1 = True
B2 = False
B3 = False
B4 = False
oRibbon.Invalidate
End Sub
'Callback for onAction
Sub OnAction(control As IRibbonControl, pressed As Boolean)
B1 = False
B2 = False
B3 = False
B4 = False
Select Case control.ID
Case "MenuToggleButton1"
B1 = True
Case "MenuToggleButton2"
B2 = True
Case "MenuToggleButton3"
B3 = True
Case "MenuToggleButton4"
B4 = True
End Select
oRibbon.Invalidate
End Sub
'Callback for getPressed
Sub GetPressed(control As IRibbonControl, ByRef returnedVal)
Select Case control.ID
Case "MenuToggleButton1"
returnedVal = B1
Case "MenuToggleButton2"
returnedVal = B2
Case "MenuToggleButton3"
returnedVal = B3
Case "MenuToggleButton4"
returnedVal = B4
End Select
End Sub