Editing menus in Excel 2007 beta 2 Diggerdeep 01.08.2006 21:31:03 How do I edit the "right click menu" in Excel 2007 Beta 2?

Re: Editing menus in Excel 2007 beta 2 "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 01.08.2006 21:53:30 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 -- Regards Ron de Bruin http://www.rondebruin.nl "Diggerdeep" <Diggerdeep[ at ]discussions.microsoft.com> wrote in message news:572E937E-C7CA-4250-8BE9-5442A66A8977[ at ]microsoft.com... [Quoted Text] > How do I edit the "right click menu" in Excel 2007 Beta 2?

RE: Editing menus in Excel 2007 beta 2 JKP71 01.08.2006 21:54:02 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. "Diggerdeep" wrote: [Quoted Text] > How do I edit the "right click menu" in Excel 2007 Beta 2?

Re: Editing menus in Excel 2007 beta 2 Diggerdeep 02.08.2006 04:28:01 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 "Ron de Bruin" wrote: [Quoted Text] > 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 > > > -- > Regards Ron de Bruin > http://www.rondebruin.nl > > > > "Diggerdeep" <Diggerdeep[ at ]discussions.microsoft.com> wrote in message news:572E937E-C7CA-4250-8BE9-5442A66A8977[ at ]microsoft.com... > > How do I edit the "right click menu" in Excel 2007 Beta 2? > > >

RE: Editing menus in Excel 2007 beta 2 Diggerdeep 02.08.2006 04:31:01 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 "JKP71" wrote: [Quoted Text] > 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. > "Diggerdeep" wrote: > > > How do I edit the "right click menu" in Excel 2007 Beta 2?

Re: Editing menus in Excel 2007 beta 2 "Ron de Bruin" <rondebruin[ at ]kabelfoon.nl> 02.08.2006 12:47:18 Sorry VBA is the only way to change the cell menu See http://www.mvps.org/dmcritchie/excel/getstarted.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Diggerdeep" <Diggerdeep[ at ]discussions.microsoft.com> wrote in message news:0F527F98-A62E-4E2A-AE0D-58212056ECB1[ at ]microsoft.com... [Quoted Text] > 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 > > "Ron de Bruin" wrote: > >> 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 >> >> >> -- >> Regards Ron de Bruin >> http://www.rondebruin.nl >> >> >> >> "Diggerdeep" <Diggerdeep[ at ]discussions.microsoft.com> wrote in message news:572E937E-C7CA-4250-8BE9-5442A66A8977[ at ]microsoft.com... >> > How do I edit the "right click menu" in Excel 2007 Beta 2? >> >> >>