NOTE: Для »» `DropDown ` и `Gallery` аналогично!

Office VBA_26

Sub CallbackCBGetItemScreentip(control As IRibbonControl, _
                               index As Integer, _
                               ByRef screentip)
    Select Case control.ID
        Case "myComboBox"
            screentip = DLookup("txtName", "tblPictures", _
                                "txtPicName='" & _
                                Format(index, "00") & "'")
    End Select
End Sub

Office XML_25

<comboBox 
 id="myComboBox" 
 label="My ComboBox:"
 getItemScreentip="CallbackCBGetItemScreentip" 
 imageMso="PictureEffectsGlowGallery" 
 onChange="MyComboBoxCallbackOnChange" 
 sizeString= "WWWWWWWWWWWWW">
</comboBox>