Wraz z pojawieniem się Excela 2007 pojawiło się nowe menu. Zastąpiło ono dotychczas znany interfejs. Teraz większa część funkcji, która była bardzo głęboko schowana w opcjach menu została wyciągnięta na wierzch. Uważam, że był to krok w słusznym kierunku. I dzięki temu praca w Excelu stała się prostsza dla początkujących użytkowników.

Dla osób bardziej zaawansowanych oznaczało to konieczność zmiany przyzwyczajeń. W trakcie pracy z nowym Excelem czasami występują sytuację, że nie jestem w stanie znaleźć jakiejś funkcjonalności. Wiem dokładnie, gdzie powinna znaleźć się w menu starego Excela, natomiast położenie jej w nowym Excelu jest zagadką. Ale z tym można bardzo prosto sobie poradzić. Otóż można dodać dodatkowy pasek narządzi, który będzie zawierał w sobie stare menu. W tym celu należy uruchomić poniższy kod:

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

Sub StworzStareMenu()
  Dim cb As CommandBar
  Dim cbc As CommandBarControl
  Dim stareMenu As CommandBar
 
  'Usunięcie menu, gdy jest ono już wcześniej zdefiniowane
  On Error Resume Next
  Application.CommandBars("Stare menu").Delete
  On Error GoTo 0
 
  'Stworzenie starego menu
  Set stareMenu = Application.CommandBars.Add("Stare menu", , False)
 
  'Dodanie opcji do menu
  With CommandBars("Built-in Menus")
    .Controls("&Plik").Copy stareMenu
    .Controls("&Edycja").Copy stareMenu
    .Controls("&Widok").Copy stareMenu
    .Controls("&Wstaw").Copy stareMenu
    .Controls("F&ormat").Copy stareMenu
    .Controls("&Narzędzia").Copy stareMenu
    .Controls("&Dane").Copy stareMenu
    .Controls("&Okno").Copy stareMenu
    .Controls("&Pomoc").Copy stareMenu
  End With
 
  'Włączenie widoczności menu
  Application.CommandBars("Stare menu").Visible = True
End Sub

Może tak otrzymane menu nie jest najładniejsze, ale spełnia moje oczekiwania.