1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub添加图片按钮() Dim gongju As CommandBar, AnNiu As CommandBarButton, 足毂忍珩i As Byte, pic On Error Resume Next For i=1 To 4 Set pic=Sheets("SHEET1").Pictures.Insert(ThisWorkbook.Path & "\" & i & ".ICO") '插入图标到工作表 Next i Application.CommandBars("我的新工具").Delete '如果有新工具栏则删除重新建立 Set gongju=Application.CommandBars.Add '新建工具栏 gongju.Visible=True '让工具栏可见 gongju.Name="我的新工具" '为工具栏命名 For i=1 To 4 Set AnNiu=gongju.Controls.Add '为工具栏添加按钮 AnNiu.OnAction="test" '为按钮指定程序 AnNiu.Caption="第" & i & "个按钮" '为按钮指定文字标题 AnNiu.Style=msoButtonIconAndCaption '让按钮同时显示文字标题 Sheet1.Pictures(i).Copy '复制图标 AnNiu.PasteFace '粘贴到按钮 Next i For Each pic In Sheets("SHEET1").Pictures '删除工作表中的图片 pic.Delete Next pic End SubSub test() MsgBox "按钮！"End Sub
5、用快捷键F5运行程序，工作簿的【加载项】中立即出现刚生成的四个图标按钮，如图
