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
Um den Zoom-Faktor in Excel dauerhaft einzustellen, kannst du VBA verwenden. Hier ist eine einfache Methode, um den Zoom beim Öffnen einer Excel-Datei auf 80% zu fixieren:
ALT + F11, um den VBA-Editor zu öffnen.Private Sub Workbook_Open()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
wks.Activate
ActiveWindow.Zoom = 80
Next
Application.ScreenUpdating = True
End Sub
Fehler: Der Zoom-Faktor wird nicht übernommen
Fehler: Der Zoom funktioniert nicht für alle Blätter
Workbook_Open-Subroutine korrekt implementiert ist und alle Arbeitsblätter durchläuft.Falls du den Zoom-Faktor nicht über VBA einstellen möchtest, kannst du auch die Excel-Optionen nutzen:
Beachte jedoch, dass diese Methode nicht so flexibel ist wie VBA und keine individuellen Einstellungen für bereits existierende Arbeitsblätter ermöglicht.
Wenn du beispielsweise eine Präsentation in Excel erstellst und beim Öffnen der Datei einen Zoom von 100% wünschst, kannst du den Code einfach anpassen:
Private Sub Workbook_Open()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
wks.Activate
ActiveWindow.Zoom = 100
Next
Application.ScreenUpdating = True
End Sub
Du kannst den Zoom auch auf das Maximum in Excel einstellen, zum Beispiel 400%, aber bedenke, dass dies die Lesbarkeit beeinträchtigen kann.
activewindow.zoom-Eigenschaft, um den Zoom-Faktor programmatisch anzupassen, je nach Inhalt oder Benutzeranpassungen.Workbook_SheetActivate, um den Zoom zu ändern, wenn zwischen Blättern gewechselt wird.1. Wie kann ich den Zoom für alle Arbeitsblätter gleichzeitig festlegen?
Du kannst den oben genannten VBA-Code verwenden, der durch alle Arbeitsblätter iteriert und den Zoom für jedes Blatt festlegt.
2. Kann ich den Zoom auch auf 100% einstellen?
Ja, ändere einfach die Zahl im Code von 80 auf 100 oder jeden gewünschten Wert.
3. Funktioniert dieser VBA-Code in allen Excel-Versionen?
Ja, solange du eine Version von Excel verwendest, die VBA unterstützt, sollte der Code in Excel 2010 und später funktionieren.