[已解决]excel 删除菜单栏问题

sdwffw

Book1.zip (1.34 KB, 下载次数: 4)

2013-3-15 10:35 上传

点击文件名下载附件
我在测试多级菜单代码后，excel中自带的菜单多了两个“多级菜单”，请问如何删除？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-15 11:04

1. Sub 重置工具栏()
   
2.     Dim mb As CommandBar
   
3.     On Error Resume Next
   
4.     For Each mb In Application.CommandBars
   
5.         mb.Reset
   
6.     Next
   
7.     MsgBox "工具栏复位完成"
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

直接重置菜单栏吧。reset方法。

sdwffw

请问怎样用reset方法重置？

hwc2ycy

你的附件里没有代码。

hwc2ycy

1. Sub 重置工具栏()
   
2.     Dim mb
   
3.     On Error Resume Next
   
4.     For Each mb In Application.CommandBars
   
5.         mb.Reset
   
6.     Next
   
7. End Sub
   

复制代码

hwc2ycy

1. Sub 重置工具栏()
   
2.     Dim mb As CommandBar
   
3.     On Error Resume Next
   
4.     For Each mb In Application.CommandBars
   
5.         mb.Reset
   
6.     Next
   
7.     MsgBox "工具栏复位完成"
   
8. End Sub
   

复制代码

sdwffw

谢谢老师！！！又学了知识