Refresh ribbon with code

cagataybaser

New member
Joined
Aug 14, 2014
Messages
13
Reaction score
0
Points
0
Hello everyone,I created a custom ribbon for myself using xml
I have a part in xml code like this
Code:
[FONT=Verdana]<checkBox id = "Fnew" getLabel="CallbackGetLabel" getPressed="GetPressed" onAction="KOLONAC" /> 

[/FONT]

and vba code for this part is
Code:
[FONT=Verdana]Dim bChk(0 To 2) As Boolean 
Public objRibbon As IRibbonUI Private Sub o n l o a d(ribbon As IRibbonUI) 
    Dim i As Long 
    Set objRibbon = ribbon 
    bChk(0) = True 
End Sub 

Function GetChkBox(ByVal sString) As String 
    Select Case sString 
    Case "Fnew" 
        GetChkBox = "0" 
    End Select 
End Function 

Sub GetPressed(control As IRibbonControl, ByRef Button) 
    Button = bChk(GetChkBox(control.ID)) 
End Sub 

Sub CallbackGetLabel(control As IRibbonControl, ByRef Label) 
    On Error Resume Next 
    Select Case control.ID 
    Case "Fnew" 
        Label = Range("B12").Value 
    End Select 
End Sub 

[/FONT]

And when I change range("b12").value with another macro,getpressed is not shown anymore.
Can you help me about that?
Best Regards
 
Top