关于菜单通过VBA的删除问题

真主

1.         Dim Ctrl As CommandBarControl
   
2.         On Error Resume Next
   
3.         For Each Ctrl In CommandBars("MyMenu").Controls("Use(&U)").CommandBar.Controls
   
4.          If CommandBars("MyMenu").Controls("Use(&U)").CommandBar.Name <> "MAIN" Then
   
5.             Ctrl.Delete
   
6.          Else
   
7.          End If
   
8.         Next
   

复制代码

我是想通过这是一段删除Use(&U)下除名字为MAIN的所有菜单，但第4行好像没有起作用，运行代码外全给清掉了

zhuyiwen

1. If Ctrl.Name <> "MAIN" Then

复制代码

admin

{:soso_e179:}

真主

朱老总，还是不行，会被删除

真主

1. i = 1
   
2. For i = 1 To CommandBars("MyMenu").Controls(2).CommandBar.Controls.Count - 1
   
3. CommandBars("MyMenu").Controls(2).Controls(2).Delete
   
4. Next i
   

复制代码

谢谢各位，我用笨方法处理了，已达到效果