excel中设置自已的菜单问题

cxf6672

我参照人家的代码制作自已的菜单代码如下，若我想添加一个与菜单“文件系统”和“帮助系统”并列级别的单级菜单“数据清零”刚应如何写代码 Sub auto_mymenu() On Error Resume Next MenuBars("MyMenu").Delete MenuBars.Add ("MyMenu") Sheets("sheet1").Select MenuBars("MyMenu").Menus.Add Caption:="〖文件系统〗　" MenuBars("MyMenu").Menus("〖文件系统〗　").MenuItems.Add Caption:="屏幕刷新", OnAction:="屏幕刷新" MenuBars("MyMenu").Menus("〖文件系统〗　").MenuItems.Add Caption:="保存工作", OnAction:="保存工作" MenuBars("MyMenu").Menus.Add Caption:="〖帮助系统〗　" MenuBars("MyMenu").Menus("〖帮助系统〗　").MenuItems.Add Caption:="关于套打", OnAction:="" MenuBars("MyMenu").Menus("〖帮助系统〗　").MenuItems.Add Caption:="软件注册", OnAction:="" MenuBars("MyMenu").Menus("〖帮助系统〗　").MenuItems.Add Caption:="退出系统", OnAction:="退出系统" MenuBars("MyMenu").Activate