如何将图标添加到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
oTemplate.Shapes("picCalcOpt").CopyPicture
.PasteFace