Zoom dynamisch anpassen
11.03.2016 12:55:03
Lorenz
Ich versuche mit folgendem Code den Zoom pro Lasche (Tabellenblatt) festzulegen.
Dafür habe ich das Makro hinter eine Form gelegt. Wird auf die Form geklickt funktioniert das auch einwandfrei.
Problem: Sobald ich unten zwischen den Tabellenblättern hin- und herspringe wird der Zoom nicht automatisch umgestellt.
Wie ändere ich meinen Code, damit er jedes mal z.B bei der Lasche "Hauptmenü" den Zoom wie unten stehend anpasst?
Vielen Dank für eure Hilfe!!
Das hier steht noch über dem Code:
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Public wsTemp As Worksheet
Sub OnClick_Übersicht()
Dim intBreit As Integer
Dim intHoch As Integer
Dim strErgebnis As String
intBreit = GetSystemMetrics(SM_CXSCREEN)
intHoch = GetSystemMetrics(SM_CYSCREEN)
strErgebnis = intBreit & "x" & intHoch
Worksheets("HAUPTMENÜ").Select
Range("A1").Select
Select Case strErgebnis
Case "1680x1050"
ActiveWindow.Zoom = 60
Case "1366x768"
ActiveWindow.Zoom = 50
Case "1280x800"
ActiveWindow.Zoom = 50
Case "1024x768"
ActiveWindow.Zoom = 40
Case Else
ActiveWindow.Zoom = 50
End Select
End Sub