ich möchte, dass beim Öffnen einer Excel-Datei für sämtliche enthaltenen Arbeitsblätter automatisch ein bestimmter Zoomfaktor eingestellt wird (80%).
Gibt es dafür einen VBA-Code?
Danke und Gruß,
Wo
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveWindow.Zoom 80 Then
ActiveWindow.Zoom = 80
End If
End Sub
Gruß Matthias
Private Sub Workbook_Open()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
wks.Activate
ActiveWindow.Zoom = 80
Next
' Sheets(1).Activate
End Sub