Zoom überall auf 100%
03.08.2006 13:46:33
Peter
Mit nachfolgendem Makro (in der persönlichen Makrovorlage gespeichert) möchte ich in einem beliebigen Workbook bei allen Worksheets das Zoom auf 100% einstellen.
Offensichtlich funktioniert die Zeile
Window.Zoom = 100
nicht.
Wie lautet der Syntax?
Danke für Feedback.
Peter
Sub Prozent_100()
Dim objWorksheet As Worksheet
Application.ScreenUpdating = False
For Each objWorksheet In ActiveWorkbook.Worksheets
Window.Zoom = 100
Next
Application.ScreenUpdating = True
End Sub