养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

怎样使用VBA自定义按钮图标

时间:2024-11-12 23:37:12

随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA添加工作表标签菜单?

怎样使用VBA自定义按钮图标

工具/原料

手机

方法/步骤

1、首先在开发工具中打开VBA编辑器

怎样使用VBA自定义按钮图标

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA自定义按钮图标

3、在VBA编辑器中插入模块

怎样使用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

怎样使用VBA自定义按钮图标

5、用快捷键F5运行程序,工作簿的【加载项】中立即出现刚生成的四个图标按钮,如图

怎样使用VBA自定义按钮图标

© 一点知识