ribbon's togglebutton label not working

[anziga]

I set a new toggleButton to Excel ribbon:
<togglebutton
id="rxblockmacros"
getLabel="GetLabel"
size="large"
onAction="rxblockmacros_Click"
imageMso="AfterDelete"
screentip="Block / activate macros" />
Everything else works fine but not the label function.

Sub GetLabel(ByVal control As IRibbonControl, ByRef returnedVal)
       Select Case control.ID
        Case "rxblockmacros"
         If bLabelState Then
          returnedVal = "Activate macros"
         Else
          returnedVal = "Block macros"
        End If
      Case Else
     ' do nothing
     End Select

I have tried tons of various ways, but it just doesn't change the text of the toggleButton. When I open that particular document, button will get the label from this function, depending on how I have set bLabelState.

Option Explicit
Public grxIRibbonUI As IRibbonUI
Private bLabelState As Boolean
'Callback for customUI.******
Sub rxIRibbonUI_******(ribbon As IRibbonUI)
      Set grxIRibbonUI = ribbon
      bLabelState = True
End Sub

Any idea what I could try?
</togglebutton>

 

[Andy Pope]

You need to invalidate the control when the toggle button is clicked.

Public Sub rxblockmacros_onAction(control As IRibbonControl, pressed As Boolean)
' Code for onAction callback. Ribbon control toggleButton
'
    bLabelState = Not bLabelState
    g_rbxUI.InvalidateControl "rxblockmacros"
    
End Sub

 

[anziga]

Hi Andy

Thanks for the tip. For some reason I got an error message:
Run-time error '91': "Object variable or With block variable not set"

Debugger points to this row:

grxIRibbonUI.InvalidateControl "rxblockmacros"

 

[RoryA]

That means your Ribbon variable has gone out of scope. Usually caused by debugging or an unhandled error in your code.

 

[anziga]

When I restarted the PC the code worked just fine....