Přizpůsobení tabulky podle rozlišení obrazovky

Pokud často pracujete s jedním excelovským souborem z různých počítačů a hlavně různých rozlišení, můžete narazit na problém. Na obrazovce s vyšším rozlišením vidíte celou tabulku přehledně, v celé své kráse. Na menším rozlišení pak vidíte pouze část tabulky.

Abyste ji zobrazili celou, můžete využít funkce lupy a zmenšit si tak zobrazení např. na 90 %.

 

Pokud s touto tabulkou ale pracujete několikrát za den, je neustálé přepínání velikosti zobrazení otravné. Dá se to však řešit makrem, které zjistí aktuální rozlišení a podle toho, při otevření souboru, upraví požadované přiblížení.

Kód níže vložte do VBE (editoru jazyka VBA – zobrazíte stisknutím klávesové zkratky Alt+F11) do objektu ThisWorkbook.

Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics"(ByVal nIndex As Long) As Long
Public Sirka As Long
Public Vyska As Long

Private Sub Workbook_Open()

Sirka = GetSystemMetrics32(0)
Vyska = GetSystemMetrics32(1)

If Sirka > 1680 Then
If ActiveWindow.Zoom <> 90 Then ActiveWindow.Zoom = 90
Else
If ActiveWindow.Zoom <> 100 Then ActiveWindow.Zoom = 100
End If

End Sub

Pozn.: Zvýrazněné hodnoty můžete upravovat dle libosti.