Editing menus in Excel 2007 beta 2

R

Ron de Bruin

Hi Diggerdeep

Same as in older versions with VBA code

This example will add 3 controls to the Cell menu that run your own macro's.

Change this two lines :

onaction_names = Array("macro1", "macro2", "macro3")
caption_names = Array("caption 1", "caption 2", "caption 3")


Sub Add_Controls()
Dim i As Long
Dim onaction_names As Variant
Dim caption_names As Variant
onaction_names = Array("macro1", "macro2", "macro3")
caption_names = Array("caption 1", "caption 2", "caption 3")
With Application.CommandBars("Cell")
For i = LBound(onaction_names) To UBound(onaction_names)
With .Controls.Add(Type:=msoControlButton)
.OnAction = ThisWorkbook.Name & "!" & onaction_names(i)
.Caption = caption_names(i)
End With
Next i
End With
End Sub

Sub Delete_Controls()
Dim i As Long
Dim caption_names As Variant
caption_names = Array("caption 1", "caption 2", "caption 3")
With Application.CommandBars("Cell")
For i = LBound(caption_names) To UBound(caption_names)
On Error Resume Next
.Controls(caption_names(i)).Delete
On Error GoTo 0
Next i
End With
End Sub
 
J

JKP71

From what I read in the helps with the Office 2007, there is not way to edit
the "right click" menu or the menu toolbar. In my opinion, the new menu
system is terrible. It will be okay if you are a novice with the software
suite, but if you are more experienced the menus are a pain in the butt. The
new menus slow your productivity. They should give you the option between the
old or new menus styles.
 
D

Diggerdeep

Thank Y ou Ron:- I am sure what you sent me as an answer would be very
helpful if I was a programmer...unfortunately your answer was way above my
abilities to respond...but I would like to thank you again for a very
detailed answer.

Diggerdeep
 
D

Diggerdeep

Hey JKP:- Thanks for taking the time to answer my question...I agree with
you, it seems they have taken a giant step backward to making the program
user friendly.

Diggerdeep
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top