26.11.2013 6908

Как вернуть в Excel меню из Office 2003

Предлагаем вашему вниманию быстрый способ отображения меню старого стиля в Excel 2007 или более поздней версии. Выполните эту процедуру VBA, и вы получите панель инструментов, содержащую старые команды меню Excel 2003.

Excel имеет долгую историю, и он продолжает развиваться и меняться. Следовательно, советы, приведенные здесь, не обязательно распространяются на все версии Excel. В частности, пользовательский интерфейс для Excel 2007 (и позднее), сильно отличается от своих предшественников. Таким образом, команды меню, используемые в старых версиях Excel, могут не соответствовать пользовательскому интерфейсу Excel 2007 (и более поздних версий).

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

После выполнения этого макроса, новое меню отображается на вкладке Надстройки.

Естественно, что созданное меню не является совершенным. Некоторые команды могут не работать, и список последних файлов в меню Файл просто показывает названия файлов.