-
1
- #1
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
office 2010 - how to get classic menu 12
- Thread starter Nifrabar
- Start date
AnotherHiggins
Technical User
Classic menu meaning the old File, Edit, View, etc instead of the Ribbon?
No, sorry.
But have a look at these interactive guides where you do something in 2003 and it shows you where that command/function is in 2010.
[tt][blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]
Help us help you. Please read FAQ 181-2886 before posting.
No, sorry.
But have a look at these interactive guides where you do something in 2003 and it shows you where that command/function is in 2010.
[tt][blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]
Help us help you. Please read FAQ 181-2886 before posting.
Is this any use:
?
I haven't tried it, as all the old keyboard shortcuts to the old menu commands work anyway ( like Alt-e-e for Edit/Replace ).
Cheers, Glenn.
Beauty is in the eye of the beerholder.
?
I haven't tried it, as all the old keyboard shortcuts to the old menu commands work anyway ( like Alt-e-e for Edit/Replace ).
Cheers, Glenn.
Beauty is in the eye of the beerholder.
- Thread starter
- #4
Glenn,
Presume I can cut and pate the code as macro,
This looks fine but will it be language dependent?
I am using Dutch version and there it throws error
.Controls("&File").Copy OldMenu
throws an error but I expect also code further down will throw errors.
Any idea?
-Bart
Presume I can cut and pate the code as macro,
This looks fine but will it be language dependent?
I am using Dutch version and there it throws error
.Controls("&File").Copy OldMenu
throws an error but I expect also code further down will throw errors.
Any idea?
-Bart
Nifrabar,
I would expect that it would other errors too, and I don't know if the solution will work in a different language setting either.
I recommend using the interactive guides as suggested by John ( anotherhiggins ), to help you learn the new locations of all the commands. And using the old shortcut-key combinations, as I suggested ( and I use these all the time ). And putting anything that you use a lot into the Quick Access Toolbar ( especially useful for accessing commands that no longer exist in the Ribbon ).
Cheers, Glenn.
Beauty is in the eye of the beerholder.
I would expect that it would other errors too, and I don't know if the solution will work in a different language setting either.
I recommend using the interactive guides as suggested by John ( anotherhiggins ), to help you learn the new locations of all the commands. And using the old shortcut-key combinations, as I suggested ( and I use these all the time ). And putting anything that you use a lot into the Quick Access Toolbar ( especially useful for accessing commands that no longer exist in the Ribbon ).
Cheers, Glenn.
Beauty is in the eye of the beerholder.
-
8
- #6
- Thread starter
- #7
Strongm,
Any help how to do so?
Glenn,
Just like all those other users who hate the ribbon I am looking for a 'classic' alternative. Hopefully once office will be again as users want it to be, with a possibility to toggle to the menus which have proven to be very usefull since windows v2.0 and also with other OS'
-Bart
Any help how to do so?
Glenn,
Just like all those other users who hate the ribbon I am looking for a 'classic' alternative. Hopefully once office will be again as users want it to be, with a possibility to toggle to the menus which have proven to be very usefull since windows v2.0 and also with other OS'
-Bart
Code:
[blue]Option Explicit
Public Sub MakeOldMenus()
Dim OldMenu As CommandBar
Dim OldMenu2 As CommandBar
Dim lp As Long
' Delete our current custom menus, if they exist
KillMenus
' Create an old-style toolbar
' Set the last argument to False for a (slightly) more compact menu
Set OldMenu = Application.CommandBars.Add("Old Menus", , True)
Set OldMenu2 = Application.CommandBars.Add("Old Menus2", , False)
' Now copy the controls from Excel's "Built-in Menus" shortcut menu
' using IDs to avoid language issues
With Application.CommandBars("Built-in Menus")
.FindControl(, 30002).Copy OldMenu
.FindControl(, 30003).Copy OldMenu
.FindControl(, 30004).Copy OldMenu
.FindControl(, 30005).Copy OldMenu
.FindControl(, 30006).Copy OldMenu
.FindControl(, 30007).Copy OldMenu
'.FindControl(, 30008).Copy OldMenu 'Does not exist in Excel
.FindControl(, 30011).Copy OldMenu
.FindControl(, 30009).Copy OldMenu
.FindControl(, 30010).Copy OldMenu
End With
' For additional fun, add Standard and Formatting toolbars below menu
' Unfortunately we cannot display them in the ribbon in quite the same way as we might want
For lp = 1 To Application.CommandBars("Standard").Controls.Count
Application.CommandBars("Standard").Controls.Item(lp).Copy OldMenu2
Next
For lp = 1 To Application.CommandBars("Formatting").Controls.Count
Application.CommandBars("Formatting").Controls.Item(lp).Copy OldMenu2
Next
' Make menu and tollbars visible. They appears in the Add-Ins tab
Application.CommandBars("Old Menus").Visible = True
Application.CommandBars("Old Menus2").Visible = True
End Sub[/blue]- Thread starter
- #9
-
1
- #10
Whoops - sorry, forgot to give you the KillMenus procedure...
Code:
[blue]Public Sub KillMenus()
' Delete our current custom menus, if they exist
On Error Resume Next
Application.CommandBars("Old Menus").Delete
Application.CommandBars("Old Menus2").Delete
On Error GoTo 0
End Sub[/blue]- Thread starter
- #11
-
1
- #12
Okey dokey - I was just providing an alternative for the example you were previoulsy provided with, which was just for Excel.
Here is a minor modification to MakeOldMenus which works in both Excel and Word (just replace the Make OldMenus procudeure previoulsy provided with this one)
Here is a minor modification to MakeOldMenus which works in both Excel and Word (just replace the Make OldMenus procudeure previoulsy provided with this one)
Code:
[blue]Public Sub MakeOldMenus()
Dim OldMenu As CommandBar
Dim OldMenu2 As CommandBar
Dim lp As Long
' Delete our current custom menus, if they exist
KillMenus
' Create an old-style toolbar
' Set the last argument to False for a (slightly) more compact menu
Set OldMenu = Application.CommandBars.Add("Old Menus", , True)
Set OldMenu2 = Application.CommandBars.Add("Old Menus2", , False)
' Now copy the old style menu items onto our custom menu
' using IDs to avoid language issues
On Error Resume Next
With Application.CommandBars
.FindControl(, 30002).Copy OldMenu
.FindControl(, 30003).Copy OldMenu
.FindControl(, 30004).Copy OldMenu
.FindControl(, 30005).Copy OldMenu
.FindControl(, 30006).Copy OldMenu
.FindControl(, 30007).Copy OldMenu
.FindControl(, 30008).Copy OldMenu ' Does not exist in Excel - error handling will skip it
.FindControl(, 30011).Copy OldMenu ' Does not exist in Word - error handling will skip it
.FindControl(, 30009).Copy OldMenu
.FindControl(, 30010).Copy OldMenu
End With
On Error GoTo 0
' For additional fun, add Standard and Formatting toolbars below menu
' Unfortunately we cannot display them in the ribbon in quite the same way as we might want
For lp = 1 To Application.CommandBars("Standard").Controls.Count
Application.CommandBars("Standard").Controls.Item(lp).Copy OldMenu2
Next
For lp = 1 To Application.CommandBars("Formatting").Controls.Count
Application.CommandBars("Formatting").Controls.Item(lp).Copy OldMenu2
Next
' Make menu and tollbars visible. They appears in the Add-Ins tab
Application.CommandBars("Old Menus").Visible = True
Application.CommandBars("Old Menus2").Visible = True
End Sub[/blue]
- Thread starter
- #14
Strongm,
Very very usefull.
Would there be on the net some documentation showing some more about the use of VBA for these matters?
Is the Add-In tab a standard location where this menu appears?
Can't we use VBA to move the ribbon away and just only have our classic menu?
By the way Star for youe good work!!
-Bart
Very very usefull.
Would there be on the net some documentation showing some more about the use of VBA for these matters?
Is the Add-In tab a standard location where this menu appears?
Can't we use VBA to move the ribbon away and just only have our classic menu?
By the way Star for youe good work!!
-Bart
![[thumbsup2]](/data/assets/smilies/thumbsup2.gif "[thumbsup2] [thumbsup2]")
cmeagan656
Technical User
Nice work strongm! Thanks!
Hope this helps.
Please help us help you. Read Tek-Tips posting polices before posting.
Canadian members check out Tek-Tips in Canada for socializing, networking, and anything non-technical.
Hope this helps.
Please help us help you. Read Tek-Tips posting polices before posting.
Canadian members check out Tek-Tips in Canada for socializing, networking, and anything non-technical.
Beautiful!
Having said that I must be one of the few people that actually prefer the ribbon...or at least the extra functionality that Excel 2010 has....
Rgds, Geoff
We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.
Please read FAQ222-2244 before you ask a question
Having said that I must be one of the few people that actually prefer the ribbon...or at least the extra functionality that Excel 2010 has....
Rgds, Geoff
We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.
Please read FAQ222-2244 before you ask a question
- Status
