Powiększanie widoku arkusza za pomocą skrótu klawiaturowego

Autor: Piotr Dynia
Data: 31-03-2015 r.

Jeśli często korzystamy z opcji powiększania widoku znajdującej się na pasku narzędziowym, to każdorazowe odrywanie rąk od klawiatury i dostosowanie widoku za pomocą myszy utrudnia pracę. W tym triku pokażemy, jak powiększać lub pomniejszać widok arkusza za pomocą kombinacji klawiszy.

W pierwszej kolejności należy przygotować dwa makra: jedno powiększające, a drugie pomniejszające widok arkusza. Do nich przypiszemy później oddzielne skróty klawiaturowe. Skok powiększenia lub pomniejszenia będzie wynosił 10% po wciśnięciu zdefiniowanej kombinacji klawiszy.

W tym celu:

  1. Otwórzmy Edytor VBA, korzystając z kombinacji klawiszy lewy [Alt]+[F11].

  2. Wstawmy nowy moduł standardowy, uruchamiając w menu Insert polecenie Module.

  3. Wpiszmy przedstawiony kod makr.

Sub powieksz()

Dim powieksz As Integer

powieksz = Int(ActiveWindow.Zoom + 10)

If powieksz > 400 Then powieksz = 400

ActiveWindow.Zoom = powieksz

End Sub

Sub pomniejsz()

Dim pomniejsz As Integer

pomniejsz = Int(ActiveWindow.Zoom 10)

If pomniejsz < 10 Then pomniejsz = 10

ActiveWindow.Zoom = pomniejsz

End Sub

  1. Zapiszmy makra i zamknijmy Edytor VBA.

Makra są gotowe. Teraz należy do nich przypisać skróty klawiaturowe.

W tym celu:

  1. Ze wstążki Widok wybierzmy Makra/Wyświetl Makra.

  2. W wyświetlonym oknie dialogowym zaznaczmy nazwę makra pomniejsz i kliknijmy przycisk Opcje.

  3. W kolejnym oknie ustawmy wskaźnik myszy w polu Klawisz skrótu i wciśnijmy na przykład [Shift]+[N].

Nie definiujmy kombinacji klawiszy, które już domyślnie uruchamiają w Excelu określone polecenia (np. [Ctrl]+[C] – Kopiuj).

Rysunek 1. Zmiana opcji wybranego makra

  1. Kliknijmy przycisk OK i w analogiczny sposób zdefiniujmy skrót klawiaturowy dla makra powiększ (niech to będzie [Ctrl]+[Shift]+[M]).

Rysunek 2. Przypisanie do makra skrótu klawiaturowego

Od tego momentu będzie można błyskawicznie powiększać lub pomniejszać arkusz za pomocą zdefiniowanych kombinacji klawiszy.

Opisany sposób wstawiania makr powoduje, że są dostępne tylko w skoroszycie, w którym zostały utworzone. Jeżeli chcemy ich używać również w innych plikach, to umieśćmy je w pliku PERSONAL.XLS. Zostanie on przez Excela utworzony automatycznie, jeżeli zarejestrujemy dowolne makro, wskazując wcześniej jako miejsce jego lokalizacji Skoroszyt makr osobistych. Następnie w Edytorze VBA za pomocą Eksploratora projektu wystarczy odszukać moduł makr tego pliku i w nim wpisać przedstawione makra. Dopiero później przypiszemy do nich odpowiednie skróty klawiaturowe.

Piotr Dynia

Zaloguj się, aby dodać komentarz

Nie masz konta? Zarejestruj się »

Zobacz także

Jak zatrzeć ślady po przeglądaniu Internetu?

pobierz

Wzór Polityki Bezpieczeństwa w ochronie danych osobowych

pobierz

Konfiguracja bezpieczeństwa. Windows 10

pobierz

10 sprytnych trików na szybkie obliczenia w Excelu

pobierz

Polecane artykuły

Polecamy kancelarię:

  • Kancelaria Radcy Prawnego Małgorzata Suchecka

    al. Grunwaldzka 472D Lokal 1 Olivia Business Centre, Olivia Six (13. piętro), 80-309 Gdańsk

    Wyświetl wizytówkę
  • Kancelaria Prawna Iurisco Edyta Przybyłek

    ul. Zgrzebnioka 28, 40-520 Katowice

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Marcin Majcherczyk

    ul. Stawowa 4 lok. 39, 41-200 Sosnowiec

    Wyświetl wizytówkę
  • Buszan Suchecka Orłowski Adwokat Radcowie Prawni Sp.p.

    ul. Armii Krajowej 22/2, 81-849 Sopot

    Wyświetl wizytówkę
  • THE N.E.W.S. LAW CENTER Kancelaria Adwokatów i Radców Prawnych

    ul. Kazachska 1/89, 02-999 Warszawa

    Wyświetl wizytówkę
  • adwokat Wojciech Rudzki - kancelaria adwokacka

    Józefa Piłsudskiego 40/4 Kraków 31 - 111

    Wyświetl wizytówkę
  • KANCELARIA ADWOKACKA Adwokat Michał Gajda

    ul. Księcia Bogusława X 1/3, 70-440 Szczecin

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Robert Dudkowiak

    ul. Jana Pawła II 11 lok. 5, 62-300 Września

    Wyświetl wizytówkę
  • Kancelaria Adwokacka Adwokata Piotra Sęka

    ul. Narutowicza 44 lok. 20, 90-135 Łódź

    Wyświetl wizytówkę
  • Kancelaria Radców Prawnych ARVE M.Kusztan & R.Ponichtera Sp. K.

    ul. Czysta 4, 50-013 Wrocław

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Marek Foryś

    ul. Słupecka 9/1, Gdynia

    Wyświetl wizytówkę
  • Kancelaria MERITUM

    ulica Westerplatte 13/5, 31-033 Kraków

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Radosław Tymiński

    Łukowska 9 Lok. 126, 04-133 Warszawa

    Wyświetl wizytówkę
Array ( [docId] => 36843 )
Array ( [docId] => 36843 )

Array ( [docId] => 36843 )