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

wswx · 发表于 2002-3-17 10:26

以下是引用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 · 发表于 2004-2-17 11:24

实用很棒

york888 · 发表于 2005-9-7 14:43

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

longevity · 发表于 2006-9-23 14:39

见好就收。

王晖辉 · 发表于 2008-5-30 21:15

厉害！！谢了！

jilijun · 发表于 2008-5-31 16:41

学习一下！！

zhengwb1979 · 发表于 2008-12-10 19:51

提示: 该帖被管理员或版主屏蔽

BENYZY · 发表于 2008-12-18 12:05

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

cjch1969 · 发表于 2009-2-17 02:38

学习了

zzmxy · 发表于 2011-7-20 14:18

梳理一下代码的格式……

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

复制代码

		自动登录	找回密码
密码			免费注册

zhengwb1979 zhengwb1979 当前离线性别保密 UID 398624 阅读权限 20 注册时间 2008-1-2 在线时间小时最后登录 1970-1-1 积分 96 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2008-12-10 19:51 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 该帖被管理员或版主屏蔽

	回复举报