如何利用VBA代码删除自定义菜单中的2级菜单

杨小军

   工作表内有 两个按钮：
  第一个：  点击新建菜单“自定义”
  第二个：点击删除菜单“自定义”下的子菜单“关于本工具”，然后又新建一个子菜单“删除后新建菜单”。
第二个按钮代码写的不对，不知道怎么实现。求大侠帮忙看下。

菜单.rar (5.81 KB, 下载次数: 49)

2012-8-10 22:36 上传

点击文件名下载附件

xiaojun0301

   没有大侠会这个吗？我也在期待学习啊！

AVEL

1. Sub Del()
   
2.     Application.CommandBars("Worksheet menu bar").Controls("自定义(&B)").Delete
   
3.     Set Newmenu = CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup, Before:=11)
   
4.     Newmenu.Caption = "自定义(&B)"
   
5.     Set zcd = Newmenu.Controls.Add(msoControlButton)
   
6.     zcd.Caption = "删除后新建菜单"
   
7.     zcd.FaceId = 2
   
8. End Sub

复制代码

xiaojun0301

AVEL 发表于 2012-8-11 05:21

     只能把自定义菜单全部删除后再重新创建吗？？？
可不可只删除某个子菜单，而不是全删除。