VBA Ribbon EditBox - How to clear contents?

[Paul Sansom]

Hi Guys and Happy New Year 2014

I have an editbox in my customised ribbon and it is an input for names in a list
After collecting the input the code clears the name from a list of names.

??? How can I clear the contents of the editbox at the end of the sub

Public Sub RemoveNameBox_onChange(control As IRibbonControl, Text As String)'
' Code for onChange callback. Ribbon control editBox
'
   
        
' Set sheet shortcuts
    Set pws = Worksheets("Panels")
    Set rws = Worksheets("Report")
    
    DeleteName = Text
    pws.Range("DeleteName") = DeleteName
    DeleteNameValue = pws.Range("DeleteNameValue")
    
    If pws.Range("=$AK$31") >= 1 Then
        pws.Range("=$AF$5").Select
        Selection.Offset(DeleteNameValue, 0).Select
        Selection.ClearContents

[I]'XXX want to clear the text edit box of the entry here ready for a new name XXX[/I]
        
    End If


    
End Sub

Any guidance gratefully received as always
Paul

 

[jkpieterse]

I expect you would need a callback in the RibbonX of the editbox that sets a routine to call to get content for the editbox. Then invalidate the ribbon at the end of the sub you showed.

 

[Paul Sansom]

Hi Jan
The code above is my callback.
The contents of the editbox is captured on the line
DeleteName = Text ..... where DeleteLine is a string variable and Text is the editbox input
This part works fine and captures the input and transfers it to the pws sheet where is is used to delete the input name... again this works fine

at this point I exit the sub but would like to clear the input now left in the editbox.

Not clear how invalidating the ribbon at this point will clear the edibox text??
Could you elaborate on that

 

[jkpieterse]

You need to add a getText callback to the ribbon XML, which has this counterpart in VBA:

Public Sub Editbox1_getText(control as IRibbonControl, ByRef returnedVal)
'
' Code for getText callback. Ribbon control editBox
'

End Sub