getLabel

 

getLabel

Sets the label for a control.

The string must not be empty (""). At least one blank must be entered (" ").

 

 

Sample Ribbon XML file:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="CallbackOnLoad">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="MyTab" label="Label Demo">
                <group id="MyGroup" label="Dynamic Label">
                    <labelControl id="myLabel1" getLabel="CallbackGetLabel" />
                    <labelControl id="myLabel2" getLabel="CallbackGetLabel" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI> 

Function to be copied to a standard module:

Sub CallbackGetLabel(control As IRibbonControl, _
                     ByRef label)
    ' Callback Label
    Select Case control.id
        Case "myLabel1"
            label = "Time:"
        Case "myLabel2"
            label = Format(Now, "hh:mm:ss")
        Case "MyButton1"
            label = "Labels refresh"
        Case Else
            label = " "
    End Select
End Sub

You can find this sample in Sample DB 2

 

 

Back