[VBA程序]：请问在VBA中怎样卸载一个菜单?

joeshow

re
3x

indal

试试MenuGruop.Menus.RemoveMenuFromMenuBar("YourrMenu")
详细说明见：
http://www.mjtd.com/a2/list.asp?id=122

efan2000

函数如下：

2. 
   
3.   [FONT=courier new]
   
4. '移去菜单
   
5. Public Sub RemoveMenu(ByVal Name As String)
   
6.     Dim EntObj As AcadMenuGroup
   
7.    
   
8.     On Error GoTo ErrTrap
   
9.     If Name = "" Then Exit Sub
   
10.     For Each EntObj In Application.MenuGroups
    
11.         If StrComp(EntObj.Name, Name, vbTextCompare) = 0 Then
    
12.            EntObj.Unload
    
13.         End If
    
14.     Next
    
15.     Set EntObj = Nothing
    
16.     Exit Sub
    
17.    
    
18. ErrTrap:
    
19.     If Not (EntObj Is Nothing) Then Set EntObj = Nothing
    
20.     On Error GoTo 0
    
21. End Sub
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> '移去菜单<br /> Public Sub RemoveMenu(ByVal Name As String)<br />     Dim EntObj As AcadMenuGroup<br />     <br />     On Error GoTo ErrTrap<br />     If Name = "" Then Exit Sub<br />     For Each EntObj In Application.MenuGroups<br />         If StrComp(EntObj.Name, Name, vbTextCompare) = 0 Then<br />            EntObj.Unload<br />         End If<br />     Next<br />     Set EntObj = Nothing<br />     Exit Sub<br />     <br /> ErrTrap:<br />     If Not (EntObj Is Nothing) Then Set EntObj = Nothing<br />     On Error GoTo 0<br /> End Sub<br />   [/FONT]<br />

XDSoft

最初由 efan2000 发布
[B]函数如下：
'移去菜单
Public Sub RemoveMenu(ByVal Name As String)
    Dim EntObj As AcadMenuGroup
   
    On Error GoTo ErrTrap
    If Name = "" Then Exit Sub
    For Each EntObj In Application... [/B]

谢谢，加10个爱心币，欢迎常来！