[学习资源]之如何建立二级子菜单！

wswx

以下是引用gzk在2002-3-17 9:47:51的发言： 在自定义菜单的示例代码中任何菜单项下，加上如下语句： Set Ctrl1 = newMenu.Controls.Add(Type:=msoControlPopup, Id:=1) Ctrl1.Caption = "自建二级菜单" 再启动就可出现二级菜单容器符号和空框。这一步，是成功的。 这时，用第三种方法，向该框中添加命令，并录制下来。可惜的是，得到的代码不能执行。 这个问题是：如何接着向二级菜单容器中添加命令。这是本人解决不了的问题，希望各位高手来攻下这个难题。 我很同意这样的观点：各位高手把自己的一般性的常用的基础性的实用的得意之作制成示例发布，对初学者是个捷径，在这样的基础上进行研究讨论，肯定能再提高本论坛的水平。 果泽奎

这个问题可以解决，参阅以下代码 Option Explicit Sub CreateMenu() Dim Menu As CommandBarControl, SubMenu As CommandBarControl Set Menu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True) With Menu .Caption = "我的菜单(&M)" End With With Menu.Controls.Add(msoControlButton, 1, , , True) .Caption = "菜单1" .OnAction = "wswx" End With With Menu.Controls.Add(msoControlButton, 1, , , True) .Caption = "菜单2" .OnAction = "wswx" End With Set SubMenu = Menu.Controls.Add(msoControlPopup, 1, , , True) With SubMenu .Caption = "菜单3" .BeginGroup = True End With With SubMenu.Controls.Add(msoControlButton, 1, , , True) .Caption = "子菜单1" .OnAction = "wswx" .Style = msoButtonIconAndCaption .FaceId = 71 End With With SubMenu.Controls.Add(msoControlButton, 1, , , True) .Caption = "子菜单2" .OnAction = "wswx" .Style = msoButtonIconAndCaption .FaceId = 72 End With Set SubMenu = SubMenu.Controls.Add(msoControlPopup, 1, , , True) With SubMenu .Caption = "子菜单3" .BeginGroup = True End With With SubMenu.Controls.Add(msoControlButton, 1, , , True) .Caption = "二级菜单1" .OnAction = "wswx" .Style = msoButtonIconAndCaption .FaceId = 71 End With With SubMenu.Controls.Add(msoControlButton, 1, , , True) .Caption = "二级菜单2" .OnAction = "wswx" .Style = msoButtonIconAndCaption .FaceId = 72 End With With Menu.Controls.Add(msoControlButton, 1, , , True) .Caption = "删除菜单" .OnAction = "DeleteMenu" .Style = msoButtonIconAndCaption .FaceId = 463 .BeginGroup = True End With End Sub Sub wswx() MsgBox "这只是个范例！", vbInformation, "制作：ＷＳＷＸ" End Sub Sub DeleteMenu() Application.CommandBars(1).Controls("我的菜单(&M)").Delete End Sub

p123456789

实用很棒

york888

其实无须VBA也可以实现建立 二级菜单!

longevity

见好就收。

王晖辉

厉害！！谢了！

jilijun

学习一下！！

BENYZY

数据有效性加INDIRECT函数，就可以解决这个问题

cjch1969

学习了

zzmxy

梳理一下代码的格式……

1. Sub CreateMenu()
   
2.     Dim Menu As CommandBarControl, SubMenu As CommandBarControl
   
3.     Set Menu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
   
4.     With Menu
   
5.         .Caption = "我的菜单(&M)"
   
6.     End With
   
7.     With Menu.Controls.Add(msoControlButton, 1, , , True)
   
8.         .Caption = "菜单1"
   
9.         .OnAction = "wswx"
   
10.     End With
    
11.     With Menu.Controls.Add(msoControlButton, 1, , , True)
    
12.         .Caption = "菜单2"
    
13.         .OnAction = "wswx"
    
14.     End With
    
15.         Set SubMenu = Menu.Controls.Add(msoControlPopup, 1, , , True)
    
16.     With SubMenu
    
17.         .Caption = "菜单3"
    
18.         .BeginGroup = True
    
19.     End With
    
20.     With SubMenu.Controls.Add(msoControlButton, 1, , , True)
    
21.         .Caption = "子菜单1"
    
22.         .OnAction = "wswx"
    
23.         .Style = msoButtonIconAndCaption
    
24.         .FaceId = 71
    
25.     End With
    
26.     With SubMenu.Controls.Add(msoControlButton, 1, , , True)
    
27.         .Caption = "子菜单2"
    
28.         .OnAction = "wswx"
    
29.         .Style = msoButtonIconAndCaption
    
30.         .FaceId = 72
    
31.     End With
    
32.     Set SubMenu = SubMenu.Controls.Add(msoControlPopup, 1, , , True)
    
33.     With SubMenu
    
34.         .Caption = "子菜单3"
    
35.         .BeginGroup = True
    
36.     End With
    
37.     With SubMenu.Controls.Add(msoControlButton, 1, , , True)
    
38.         .Caption = "二级菜单1"
    
39.         .OnAction = "wswx"
    
40.         .Style = msoButtonIconAndCaption
    
41.         .FaceId = 71
    
42.     End With
    
43.     With SubMenu.Controls.Add(msoControlButton, 1, , , True)
    
44.         .Caption = "二级菜单2"
    
45.         .OnAction = "wswx"
    
46.         .Style = msoButtonIconAndCaption
    
47.         .FaceId = 72
    
48.     End With
    
49.     With Menu.Controls.Add(msoControlButton, 1, , , True)
    
50.         .Caption = "删除菜单"
    
51.         .OnAction = "DeleteMenu"
    
52.         .Style = msoButtonIconAndCaption
    
53.         .FaceId = 463
    
54.         .BeginGroup = True
    
55.     End With
    
56.    
    
57. End Sub
    
58. 
    
59. Sub wswx()
    
60.     MsgBox "这只是个范例！", vbInformation, "制作：ＷＳＷＸ"
    
61. End Sub
    
62. 
    
63. Sub DeleteMenu()
    
64.     Application.CommandBars(1).Controls("我的菜单(&M)").Delete
    
65. End Sub
    

复制代码