作者：绿色风
分类：
时间：2022-08-18
浏览：193
楼主
轩辕轼轲 |
Q：经常看到一些VBA工具，有自带的工具栏，使用起来很方便，如何做一个带Excel内置图标的漂亮工具栏呢？
A：按照下面的介绍步骤来做，你就能定制一个漂亮的带图标的自定义工具栏。
第一步：新建一个公共模块，放入下面的代码：- Sub NewMenu()
- On Error Resume Next
- Application.CommandBars("MyMenu").Delete
- arr = Array("会计凭证", "会计账簿", "会计报表", "凭证打印", "账簿打印", "报表打印")
- id = Array(9893, 284, 9590, 9614, 707, 986)
- Set ** = Application.CommandBars.Add("MyMenu", msoBarTop)
- With **
- .Protection = msoBarNoResize
- .Visible = True
- For i = 0 To 5
- With .Controls.Add(Type:=msoControlButton)
- .Caption = arr(i)
- .FaceId = id(i)
- .BeginGroup = True
- .Style = msoButtonIconAndCaptionBelow
- End With
- Next
- End With
- Set ** = Nothing
- End Sub
- Sub DeleteMenu()
- On Error Resume Next
- Application.CommandBars("MyMenu").Delete
- End Sub
第二步：在Thiswrokbook里面加入下面的代码：- Private Sub Workbook_Activate()
- Call NewMenu
- End Sub
- Private Sub Workbook_Deactivate()
- Call DeleteMenu
- End Sub
第三步：保存后重新打开工作簿，大功告成。
 创建自定义工具栏.rar
|
2楼
q2080069 |
都是**的教程
顺便说上搜索帖子的时候 搜索出来的历史答案：
2003 http://www.exceltip.net/thread-356-1-1.html
2007 http://www.exceltip.net/thread-6406-1-1.html
罗老大的教程 |
3楼
yd0209 |
我为什么没有得到文中所说的效果呢?
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一