我用如下方法加了一个菜单:
Set newMenu = currMenuGroup.Menus.Add("设施") 然后用如下方法去掉:
currMenuGroup.Menus.RemoveMenuFromMenuBar ("设施") 但是再执行一下代码时,还是走到了条件语句里面:
For Each menu In menuCollection If menu.Name = "设施" Then currMenuGroup.Menus.RemoveMenuFromMenuBar ("设施") Exit Sub End If Next menu 哪位大侠给看看,多谢了!!!