怎样使用VBA枚举所有菜单

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Sub Excel 2003样式菜单()On Error Resume Next Dim Menu As CommandBarControl, SubMenu As CommandBarControl,SubsubMenu As CommandBarControl, i, n, m Application.CommandBars(1).Controls("怀旧菜单(&F)").Delete '删除已有菜单 Set Menu=Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True) '新增一个下拉式菜单 Menu.Caption="怀旧菜单(&F)" '为菜单命名 For Each n In Application.CommandBars(1).Controls '遍历Excel菜单 Set SubMenu=Menu.Controls.Add(msoControlPopup, 1, , , True) '添加子菜单，仍然是下拉菜单 With SubMenu .Caption=n.Caption '菜单名为Excel内部命名 .BeginGroup=True '开始一个新组 End With For Each m In n.Controls '遍历Excel二级菜单 With SubMenu.Controls.Add(msoControlButton, 1, , , True) '添加子菜单 .Caption=m.Caption '菜单名为Excel内部命名 .BeginGroup=True '开始一个新组 .FaceId=m.FaceId '为菜单设置图标，为Excel内部图标 End With Next m Next nEnd Sub

5、单击【加载项】打开功能区，一个刚建立的2003风格的菜单呈现出来，如图