Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Druckzoom auf das Maximum hochfahren

Gruppe

Zoom

Problem

Wie kann ich den Druckzoom auf das Maximum einer Seite hochfahren?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub ZoomUp()
   Dim iPages As Integer, iZoom As Integer
   iZoom = 100
   iPages = ExecuteExcel4Macro("Get.Document(50)")
   With ActiveSheet
      .PageSetup.Zoom = 95
      Do Until iPages > 1
         iZoom = iZoom + 5
         .PageSetup.Zoom = iZoom
         iPages = ExecuteExcel4Macro("Get.Document(50)")
      Loop
      .PageSetup.Zoom = iZoom - 5
      .PrintPreview
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Zoom