VBA UI Ribbon Toggle Button

[decadence]

Hi, I have created a toggle button in xml which works ok but what I would like to do is enable two other buttons on the ribbon If toggle button is pressed and disable the same two buttons when toggle is un pressed. Can some one help with this please?

 

[Worf]

This should help: https://www.rondebruin.nl/win/s2/win013.htm

 

[decadence]

Hi Worf, I have been using this as a reference however this is only a example, I have incorporated the example into my own ribbon. but there isn't much help on how to be more dynamic with buttons.

 

[Worf]

I understand you are not able to accomplish what is described at post #1 . I will try to do it.

 

[Worf]

This example shows how to use a Ribbon toggle button to enable or disable two other Ribbon controls. Tell me if you need the test workbook.

Dim myRibbon As IRibbonUI, PressedState As Boolean
Public MyTag$


Sub GE(control As IRibbonControl, ByRef Enabled)
    If MyTag = "Enable" Then
        Enabled = True
    Else
        If control.Tag Like MyTag Then
            Enabled = True
        Else
            Enabled = False
        End If
    End If
End Sub


Sub RefreshRibbon(Tag$)
MyTag = Tag
If myRibbon Is Nothing Then
    MsgBox "Error, Save/Restart your workbook" & vbNewLine & _
    "Visit this page for a solution: http://www.rondebruin.nl/ribbonstate.htm"
Else
    myRibbon.Invalidate
End If
End Sub


Sub Ribb******ed(ribbon As IRibbonUI)
    Set myRibbon = ribbon
    PressedState = False
End Sub


Sub Macro1(control As IRibbonControl, pressed As Boolean)
    Select Case pressed
    Case True
        PressedState = True
        RefreshRibbon "*"
    Case False
        PressedState = False
        RefreshRibbon "ToggleButton1"
    End Select
    myRibbon.InvalidateControl "ToggleButton1"
    myRibbon.InvalidateControl "G1B1"
    myRibbon.InvalidateControl "G1B2"
End Sub


Sub GetImage(control As IRibbonControl, ByRef image)
    Select Case control.ID
    Case "ToggleButton1"
        Select Case PressedState
        Case True: image = "HappyFace"
        Case False: image = "SadFace"
        End Select
    End Select
End Sub


Sub GetLabel(ByVal control As IRibbonControl, ByRef label)
    Select Case control.ID
    Case "ToggleButton1"
        Select Case PressedState
        Case True: label = "Happy"
        Case False: label = "Sad"
        End Select
    End Select
End Sub

 

[Kurt]

This example shows how to use a Ribbon toggle button to enable or disable two other Ribbon controls. Tell me if you need the test workbook.

Dim myRibbon As IRibbonUI, PressedState As Boolean
Public MyTag$


Sub GE(control As IRibbonControl, ByRef Enabled)
    If MyTag = "Enable" Then
        Enabled = True
    Else
        If control.Tag Like MyTag Then
            Enabled = True
        Else
            Enabled = False
        End If
    End If
End Sub


Sub RefreshRibbon(Tag$)
MyTag = Tag
If myRibbon Is Nothing Then
    MsgBox "Error, Save/Restart your workbook" & vbNewLine & _
    "Visit this page for a solution: http://www.rondebruin.nl/ribbonstate.htm"
Else
    myRibbon.Invalidate
End If
End Sub


Sub Ribb******ed(ribbon As IRibbonUI)
    Set myRibbon = ribbon
    PressedState = False
End Sub


Sub Macro1(control As IRibbonControl, pressed As Boolean)
    Select Case pressed
    Case True
        PressedState = True
        RefreshRibbon "*"
    Case False
        PressedState = False
        RefreshRibbon "ToggleButton1"
    End Select
    myRibbon.InvalidateControl "ToggleButton1"
    myRibbon.InvalidateControl "G1B1"
    myRibbon.InvalidateControl "G1B2"
End Sub


Sub GetImage(control As IRibbonControl, ByRef image)
    Select Case control.ID
    Case "ToggleButton1"
        Select Case PressedState
        Case True: image = "HappyFace"
        Case False: image = "SadFace"
        End Select
    End Select
End Sub


Sub GetLabel(ByVal control As IRibbonControl, ByRef label)
    Select Case control.ID
    Case "ToggleButton1"
        Select Case PressedState
        Case True: label = "Happy"
        Case False: label = "Sad"
        End Select
    End Select
End Sub

Hello Worf,

I am working on something similar.

Please send me a copy of this workbook.

The XML code is too small to read.

Thanks,

Kurt

 

[Worf]

o This test workbook is based on the fifth post.
o The three new controls are placed on the right side of the ribbon.
o Click the face. It will be happy when the two small controls are enabled and sad when they are disabled

https://www.dropbox.com/s/eqhwis6b12ku93q/EnableDisableTest2019.xlsm?dl=0