[已解决]多级菜单如何设置快捷键？

张雄友

多级菜单如何设置快捷键？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-19 22:27

多级菜单.rar (16.32 KB, 下载次数: 24)

2014-2-19 22:12 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     On Error Resume Next
   
3.     Dim bar As CommandBar
   
4.     Dim strMenu$
   
5.     strMenu = "custommenu"
   
6.     Application.CommandBars(strMenu).Delete
   
7.     Set bar = Application.CommandBars.Add(Name:=strMenu)
   
8.     With bar
   
9.         .Visible = True
   
10.         With .Controls.Add(msoControlPopup)
    
11.             .Caption = "一级菜单"
    
12.             With .Controls.Add(msoControlButton)
    
13.                 .Caption = "&Menu1"
    
14.                 .Visible = True
    
15.                 '.ShortcutText = "ctrl+)"
    
16.                 .Style = msoButtonIconAndCaption
    
17.                 .FaceId = 5
    
18.                 .OnAction = "menu1"
    
19.             End With
    
20.             With .Controls.Add(msoControlButton)
    
21.                 .Caption = "M&enu2"
    
22.                 .Visible = True
    
23.                 .ShortcutText = "ctrl+)"
    
24.                 .Style = msoButtonIconAndCaption
    
25.                 .FaceId = 5
    
26.                 .OnAction = "menu2"
    
27.             End With
    
28.         End With
    
29.     End With
    
30. End Sub
    
31. 
    
32. Sub menu1()
    
33.     MsgBox "menu1"
    
34. End Sub
    
35. Sub menu2()
    
36.     MsgBox "menu2"
    
37. End Sub
    

复制代码

这个快捷键只能在点开一级菜单后，菜单名称里有下划线的字母即为快捷键。
如果要设为全局快捷键，建议用application.onkey来实现。

hwc2ycy

Menu1的M键
Menu2的e键。

张雄友

hwc2ycy 发表于 2014-2-19 20:35
这个快捷键只能在点开一级菜单后，菜单名称里有下划线的字母即为快捷键。
如果要设为全局快捷键，建议用ap ...

一般的我会，如
    Application.CommandBars(1).Controls("我的菜单(&M)").Delete

但是附件这种难的不会。

hwc2ycy

你在标题里添加嘛，类似的。就你的表格里。

张雄友

hwc2ycy 发表于 2014-2-19 21:08
你在标题里添加嘛，类似的。就你的表格里。

不懂啊，如附件的。它不是在代码中直接增加，而是在单元格中引用过来的。

hwc2ycy

就在相关的字母前加上&就成了。

张雄友

hwc2ycy 发表于 2014-2-19 22:02
就在相关的字母前加上&就成了。

如一楼附件，怎么加？不会啊！！！

hwc2ycy

多级菜单.rar (16.32 KB, 下载次数: 24)

2014-2-19 22:12 上传

点击文件名下载附件

张雄友

hwc2ycy 发表于 2014-2-19 22:27

这个快捷键只能在点开一级菜单后，菜单名称里有下划线的字母即为快捷键。
如果要设为全局快捷键，建议用application.onkey来实现。

你说对了。要点开一级菜单后才能有快捷键，不能像EXCEL内置一样，按一下ALT 就出快捷键，不行啊。

如果要设为全局快捷键，建议用application.onkey来实现？是怎么样的？