undo custom popup menu

[mweaver]

Well....
Being new to code..... I am exploring custom menu play and was attempting to use a small routine I found here to add custom menus to cell right click. The code:

Sub SetUpBar()
With Application.CommandBars("Cell")
Set temp = .Controls.Add(msoControlButton)
temp.Caption = "Test1"
temp.OnAction = "Routine1" 'put routine1 in regular module
Set temp = .Controls.Add(msoControlButton)
temp.Caption = "Test2"
temp.OnAction = "Routine2" 'put routine2 in regular module
End With
End Sub

Works extremely well! and.... Since it was set as temp I guess I thought I didn't need to remove this custom work upon close.


Can anyone help with a routine to Delete the custom popup buttons I have managed to add with this code?

any help would be appreciated.


mweaver

 

[Richie(UK)]

Hi mweaver,

Try: Application.CommandBars("cell").Reset

HTH

 

[mweaver]

Thanks Richie(UK) !!

That has done it!

For me ...Workshetets with custom menus seem to go astray sometimes. Is there A small routine I can store for future foul-ups that can delete all meuns (custom or not) and Replace them with Excel's main three: Worksheet Menu Bar, Standard & Formatting???

This would bring a user back to normal.

Any help is appreciated.

Thanks
mweaver

 

[Richie(UK)]

Hi mweaver,

Have a look at this routine re a "restore standard menus" option on the mouse right-click button. Its saved me a few times.<pre>
Option Explicit
Dim temp

'
Sub SetUpBar()

With Application.CommandBars("Cell")
Set temp = .Controls.Add(msoControlButton)
temp.Caption = "Oh Crap - no menus!"
temp.OnAction = "RestoreMenus"
End With

' To put "Back to normal" use :
'Application.CommandBars("cell").Reset

End Sub
'

' Restore menu bar
'

Sub RestoreMenus()

Application.ScreenUpdating = False

Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Worksheet Menu Bar").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True

End Sub
'</pre>

Also, have a look at Dave Hawley's site in the VBA Events section. There's a
useful routine or two for hiding menus (and recording which ones you have hidden so they can be restored later!).

http://www.ozgrid.com/

HTH

EDIT: Bloody [pre]tag catches me out every time!
_________________<font color="blue"> «««<font color="red">¤<font color="blue"><font size=+1>Richie</font><font color="red">¤<font color="blue"> »»»</font>

</gif>
This message was edited by Richie(UK) on 2002-09-08 14:34

 

[mweaver]

Thanks Richie(UK)

Gonna check that out!

mweaver