（2003版）右键三级菜单

丁俊晖

学习了，谢谢！

335081548

03已经成为历史了，是古董了

gjxk999

很不错，谢谢楼主！

黍离

谢谢老师，我收藏了。

335081548

1. Sub CreateMenus() '创建自定义工具条
   
2. On Error Resume Next
   
3. Application.CommandBars("自定义工具(&K)").Delete
   
4. With Application.CommandBars.Add("自定义工具(&K)", msoBarTop, , True) '创建一个新工具条
   
5. ' 新建一个命令栏并添加到命令栏集合。返回 CommandBar 对象。
   
6. ' expression.Add(Name, Position, MenuBar, Temporary)
   
7. ' Position Variant 类型，可选。新命令栏的位置或类型。可以为下表所列的 MsoBarPosition 常量之一。
   
8. ' msoBarLeft、msoBarTop、msoBarRight 和 msoBarBottom 指定新命令栏的左侧、顶部、右侧和底部坐标
   
9. ' msoBarFloating 指定新命令栏不固定
   
10. ' msoBarPopup 指定新命令栏为快捷菜单
    
11. ' msoBarMenuBar 仅适用于 Macintosh 机
    
12. With .Controls.Add(Type:=msoControlButton) '创建按钮
    
13. .Caption = "工具1" '设置菜单的显示文字
    
14. .Style = msoButtonIconAndCaption '同时显示文字与图标
    
15. .FaceId = 15 '指定图标
    
16. End With
    
17. With .Controls.Add(Type:=msoControlButton) '创建第二个按钮
    
18. .Caption = "工具2"
    
19. .Style = msoButtonIconAndCaption
    
20. .FaceId = 16
    
21. End With
    
22. Application.ScreenUpdating = True
    
23. .Visible = True
    
24. End With
    
25. End Sub

复制代码

jiangdong110

好东西，值得研究，谢谢分享，收藏下先！

thzss

退出后不能自动清除

02761752696

谢谢    分享