Deleting Menu

[ravi]

Hello:

I added a new custom menu

using the follwing the code

Sub CreateMenu()
Dim DataMenu As CommandBarPopup
Dim NewMenuItem As CommandBarButton


Set DataMenu = CommandBars(1).FindControl(ID:=30011)

Set NewMenuItem = DataMenu.Controls.Add _
(Type:=msoControlButton)
With NewMenuItem
.Caption = "&eeprom"
.OnAction = "emc"
.BeginGroup = True
End With

End Sub

Sub emc()
UserFormEMC.Show
End Sub

This works and added a menu eeprom in main menu data.

I am not able to delete the menu eeprom ? How do I do that?

Thanks in advance

Ravi

 

[Jim Rech]

Sub DeleteIt()
Dim DataMenu As CommandBarPopup
Set DataMenu = CommandBars(1).FindControl(ID:=30011)
On Error Resume Next
DataMenu.Controls("&eeprom").Delete
End Sub


--
Jim
| Hello:
|
| I added a new custom menu
|
| using the follwing the code
|
| Sub CreateMenu()
| Dim DataMenu As CommandBarPopup
| Dim NewMenuItem As CommandBarButton
|
|
| Set DataMenu = CommandBars(1).FindControl(ID:=30011)
|
| Set NewMenuItem = DataMenu.Controls.Add _
| (Type:=msoControlButton)
| With NewMenuItem
| .Caption = "&eeprom"
| .OnAction = "emc"
| .BeginGroup = True
| End With
|
| End Sub
|
| Sub emc()
| UserFormEMC.Show
| End Sub
|
| This works and added a menu eeprom in main menu data.
|
| I am not able to delete the menu eeprom ? How do I do that?
|
| Thanks in advance
|
| Ravi
|
|

 

[Ron de Bruin]

Also good info here

http://support.microsoft.com/default.aspx?scid=kb;en-us;830502&Product=xlw
How to customize menus and menu bars in Excel

http://www.j-walk.com/ss/excel/tips/tip53.htm
Creating Custom Menus (John Walkenbach) TIP

http://www.erlandsendata.no/english/index.php?d=endownloadcommandbars
Ole P. Erlandsen's Web Site (Example workbooks)