如何将图标添加到Excel菜单/工具栏button
我需要将图像添加到通过VBA创build的自定义工具栏/菜单项中。
对于一个工具栏项目，我尝试了下面的代码
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（）似乎并没有工作。 我的工具栏正在初始化工作簿加载事件。 我注意到图像加载到工具栏button，但在几秒钟内消失，只显示项目文本。 我的图像是16×16像素bmp之一。
任何帮助感谢解决这个问题
谢谢
使用MsoButtonStyle.msoButtonIcon或包含单词Icon的MsoButtonStyle成员之一。
在VBA中，我将这些图标存储在工作表（oTemplate）中，并使用以下命令将它们传送到button：
with NewBtn
oTemplate.Shapes("picCalcOpt").CopyPicture
.PasteFace