Предлагаем вашему вниманию быстрый способ отображения меню старого стиля в Excel 2007 или более поздней версии. Выполните эту процедуру VBA, и вы получите панель инструментов, содержащую старые команды меню Excel 2003.
Excel имеет долгую историю, и он продолжает развиваться и меняться. Следовательно, советы, приведенные здесь, не обязательно распространяются на все версии Excel. В частности, пользовательский интерфейс для Excel 2007 (и позднее), сильно отличается от своих предшественников. Таким образом, команды меню, используемые в старых версиях Excel, могут не соответствовать пользовательскому интерфейсу Excel 2007 (и более поздних версий).
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | Sub MakeOldMenus() Dim cb As CommandBar Dim cbc As CommandBarControl Dim OldMenu As CommandBar ' Удалите его, если он существует On Error Resume Next Application.CommandBars("Old Menus").Delete On Error GoTo 0 ' Создаем панель инструментов в старом стиле ' Установите последний аргумент для более компактного меню Set OldMenu = Application.CommandBars.Add("Old Menus", , True) ' Скопируйте кнопки управления из "Встроенные меню" контекстного меню в Excel With CommandBars("Built-in Menus") .Controls("&File").Copy OldMenu .Controls("&Edit").Copy OldMenu .Controls("&View").Copy OldMenu .Controls("&Insert").Copy OldMenu .Controls("&Format").Copy OldMenu .Controls("&Tools").Copy OldMenu .Controls("&Data").Copy OldMenu .Controls("&Window").Copy OldMenu .Controls("&Help").Copy OldMenu End With ' Сделаем его видимым. Это отображается на вкладке Надстройки Application.CommandBars("Old Menus").Visible = True End Sub |
После выполнения этого макроса, новое меню отображается на вкладке Надстройки.
Как вернуть в Excel меню из Office 2003
Естественно, что созданное меню не является совершенным. Некоторые команды могут не работать, и список последних файлов в меню Файл просто показывает названия файлов.