Option ExplicitPublic MonRuban As IRibbonUI
'Callback for customUI.onLoad
Sub objRuban(ribbon As IRibbonUI)
Set MonRuban = ribbon
End Sub
'Callback for toggleButton.getPressed
Sub ProcPressed(control As IRibbonControl, ByRef returnedVal)
'returnedVal=
End Sub
'Callback for toggleButton.onAction
Sub MaProcedure(control As IRibbonControl, pressed As Boolean)
MsgBox control.ID & vbCrLf & pressed
End Sub