|
Makra. Zapisz je w Personal.xlsb żeby były dostępne w każdym skoroszycie, przypisz im skróty klawiaturowe (np. ctrl+p i cltr+l). Dla przykładu zwiększanie/zmniejszenie o 10%:
Sub Powieksz()
'
' Powiększenie za pomocą klawiatury
'
' Klawisz skrótu: Ctrl+p
'
Dim ZoomIn As Integer
ZoomIn = Int(ActiveWindow.Zoom * 1.1)
If ZoomIn > 400 Then ZoomIn = 400
ActiveWindow.Zoom = ZoomIn
End Sub
Sub Zmniejsz()
'
' Zmniejszenie za pomocą klawiatury
'
' Klawisz skrótu: Ctrl+l
'
Dim ZoomOut As Integer
ZoomOut = Int(ActiveWindow.Zoom * 0.9)
If ZoomOut < 10 Then ZoomOut = 10
ActiveWindow.Zoom = ZoomOut
End Sub
|