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

Office VBA_27

Sub CallbackCBGetItemSupertip(control As IRibbonControl, _
                              index As Integer, _
                              ByRef supertip)
    Select Case control.ID
        Case "myComboBox"
            supertip = Nz(DLookup("txtSubName", "tblPictures", _
                                  "txtPicName='" & _
                                  Format(index, "00") & "'"), " ")
    End Select
End Sub

Office XML_26

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