Как добавить значок в кнопку меню / панели инструментов Excel

Question

Мне нужно добавить изображение на пользовательскую панель инструментов / пункт меню, который создается через VBA.

Для элемента панели инструментов я попробовал следующий код

Set NewBtn = TBar.Controls.Add(Type:=msoControlButton)
With NewBtn

.Picture = LoadPicture("mypic.bmp")
.OnAction = "'MyFunction""" & para1 & """'"  //VBA Function
'.Caption = "MyFunction"
.TooltipText = "MyFunction"
.Style = msoButtonCaption

End With

В приведенном выше коде LoadPicture (), похоже, не работает. Моя панель инструментов инициализируется при загрузке книги. Я заметил, что изображение загружается на кнопку панели инструментов, но через доли секунды оно исчезает и отображается только текст элемента. Мое изображение размером 16x16 пикселей в формате BMP.

Любая помощь, помогите обойти эту проблему

Спасибо

Answer 1

Используйте MsoButtonStyle.msoButtonIcon или один из MsoButtonStyle членов, содержащих слово Значок .

Answer 2

В VBA я сохраняю значки на листе (oTemplate) и переносу их на кнопки с помощью:
with NewBtn <br> oTemplate.Shapes("picCalcOpt").CopyPicture <br> .PasteFace