Добавление встроенных изображений в динамическую галерею с помощью VBA

Question

Кто-нибудь знает, как передавать изображения из пути или из изображений, встроенных в images/directory (в статическом режиме галереи они появляются без каких-либо проблем) для getItemImage customUI динамического обработчика галереи?

Я пытался обратиться к изображению с пути, как так:

Sub Gallery1_getItemImage(control As IRibbonControl, index As Integer, ByRef returnedVal) 
    Select Case control.id 
    Case "Gallery1": returnedVal = "C:\Boxes\Comapny_Box1.png" 
    End Select 
End Sub 

, и я не вижу каких-либо результатов в моих процедурно сгенерированных объектов галереи. Я думал, что с изображениями, встроенными в файл excel, я мог бы ссылаться так же, как на значки mso (как и на код ниже - который работает для значков mso). Должен ли я использовать какой-то специальный метод для ссылки на него?

Sub Gallery1_getItemImage(control As IRibbonControl, index As Integer, ByRef returnedVal) 
    Select Case control.id 
    Case "Gallery1": returnedVal = "ChartStylesGallery" 
    End Select 
End Sub 

Я также пытался использовать returnedVal = LoadPicture("C:\Boxes\Company_Box1.png"), но я получаю ошибку недопустимых изображений.

С наилучшими пожеланиями

Answer 1

Я понял, как кормить этот обработчик с внешними графическими файлами. код, который работал выглядит следующим образом:

Sub Gallery1_getItemImage(control As IRibbonControl, index As Integer, _ 
ByRef returnedVal) 

    Select Case control.id 
     Case "Gallery1": Set returnedVal = LoadPicture("C:\Boxes\Company_Box1.bmp") 
    End Select 

End Sub 

Я должен был использовать BMP файлы вместо PNG, а также использовать заявление Set и метод LoadPicture().