Text value in custom Ribbon

Question

I created a custom ribbon using VBA (not CUSTOM UI EDITOR), I need to have a simple, static text showing value of cell A1, but I cannot find the XML code for that. this is what I have:

Sub LoadCustRibbon()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

'ribbonXML = ribbonXML + "" & vbNewLine

ribbonXML = "" & vbNewLine
ribbonXML = ribbonXML + "   " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine


ribbonXML = ribbonXML + "      " & vbNewLine
'grupo geral
ribbonXML = ribbonXML + "        " & vbNewLine
ribbonXML = ribbonXML + "

All buttons work fine, I have found many codes showing how to add an editable box, but none showing a simple static box showing value from a cell.

Olle Sj&#246;gren · Accepted Answer

You need an editBox-control or labelControl with callbacks to VBA functions, like you have for the onAction-events in your example.

I couldn't get your sample code to work though, so this is a general example. If you want a labelControl, the same getText-sub will work, but the XML-code is different.

XML:

VBA:

'***** Callback for txt1 getText
Sub GetText(control As IRibbonControl, ByRef returnedVal)
    '***** Return the value in cell A1 in sheet #1 in the workbook that holds the code
    returnedVal = ThisWorkbook.Sheets(1).Cells(1, 1).Value
End Sub

'***** Callback for txt1 getEnabled
Sub GetEnabled(control As IRibbonControl, ByRef returnedVal)
    '***** Return wheter you want the editBox to be enabled or not
    returnedVal = True
End Sub

Text value in custom Ribbon

Answers (1)

Related Questions