VBA zum Einstellen des Zoomlevels auf den Blättern

Question

Ich habe einen VBA, der die Zoomstufe basierend auf der Bildschirmauflösung einstellt. Aber es funktioniert nur für ActiveWindow beim Öffnen der Arbeitsmappe. Wie kann ich dies über alle Arbeitsblätter in Excel hinzufügen?

Declare Function GetSystemMetrics32 Lib "user32" _ 
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long 

Public Sub ScreenRes() 
    Dim lResWidth As Long 
    Dim lResHeight As Long 
    Dim sRes As String 

    lResWidth = GetSystemMetrics32(0) 
    lResHeight = GetSystemMetrics32(1) 
    sRes = lResWidth & "x" & lResHeight 
    Select Case sRes 
     Case Is = "800x600" 
      ActiveWindow.Zoom = 75 
     Case Is = "1024x768" 
      ActiveWindow.Zoom = 125 
     Case Else 
      ActiveWindow.Zoom = 100 
    End Select 
End Sub 

werde ich dieses Modul rufen die Arbeitsmappe

Private Sub Workbook_Open() 
ScreenRes 
End Sub 

Answer 1

Gebäude auf @Jeeped beantworten, die Sie in Thisworkbook-Codebereich den folgenden Code platzieren können:

Declare Function GetSystemMetrics32 Lib "user32" _ 
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long 

Option Explicit 

Private Sub Workbook_Open() 
    With Worksheets 
     .Select 
     ActiveWindow.zoom = ScreenResToZoom 
    End With 
End Sub 

Public Function ScreenResToZoom() As Long 
    Select Case GetSystemMetrics32(0) & "x" & GetSystemMetrics32(1) 
     Case Is = "800x600" 
      ScreenResToZoom = 75 
     Case Is = "1024x768" 
      ScreenResToZoom = 125 
     Case Else 
      ScreenResToZoom = 100 
    End Select 
End Function 

Answer 2

Wählen Sie alle der Worksheet Objects die Worksheets collection verwenden und die Application.ActiveWindow property werden alle auf sie zeigen.

With Worksheets 
    .Select 
    ActiveWindow.Zoom = 75 
End With