Option Explicit
Dim Ruban As IRibbonUI
Dim Voir_Masque As Boolean
Sub MonRuban_OnLoad(ribbon As IRibbonUI)
Set Ruban = ribbon
End Sub
Sub MonRuban_OnAction_Press(control As IRibbonControl, pressed As Boolean)
Voir_Masque = pressed
Ruban.Invalidate
End Sub
Sub MonRuban_GetPressed(control As IRibbonControl, ByRef returnValue)
returnValue = Voir_Masque
End Sub
Sub MonRuban_GetVisible(control As IRibbonControl, ByRef visible)
visible = Voir_Masque
End Sub