随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA添加工作表标签菜单?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Sub添加图片按钮()DimgongjuAs咯悝滩镞CommandBar,AnNiuAsCommandBarButton,足毂忍珩iAsByte,picOnErrorResumeNextFori=1To4Setpic=Sheets("SHEET1").Pictures.Insert(ThisWorkbook.Path&"\"&i&".ICO")'插入图标到工作表NextiApplication.CommandBars("我的新工具").Delete'如果有新工具栏则删除重新建立Setgongju=Application.CommandBars.Add'新建工具栏gongju.Visible=True'让工具栏可见gongju.Name="我的新工具"'为工具栏命名Fori=1To4SetAnNiu=gongju.Controls.Add'为工具栏添加按钮AnNiu.OnAction="test"'为按钮指定程序AnNiu.Caption="第"&i&"个按钮"'为按钮指定文字标题AnNiu.Style=msoButtonIconAndCaption'让按钮同时显示文字标题Sheet1.Pictures(i).Copy'复制图标AnNiu.PasteFace'粘贴到按钮NextiForEachpicInSheets("SHEET1").Pictures'删除工作表中的图片pic.DeleteNextpicEndSubSubtest()MsgBox"按钮!"EndSub
5、用快捷键F5运行程序,工作簿的【加载项】中立即出现刚生成的四个图标按钮,如图