Zoomwert bei FitToPagesWide = 1 finden

28/05/2008 - 00:34 von Wolfgang Kutsche | Report spam
Hallo NG,

über den nachfolgenden Code kann man den Zoom eines Ausdruckes einstellen.

Fall 1:
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With

Fall 2:
With ActiveSheet.PageSetup
.Zoom = 50
End With

Nun meine Frage:
Im Fall 1 möchte ich per VBA herausfinden, mit welcher Zoomeinstellung
(Zahl) der Druck erfolgt. Im Dialogfeld „Seite einrichten“ wird dieser Wert
angezeigt.
ActiveSheet.PageSetup.Zoom liefert im Fall 1 leider nur = False und nicht
den Wert.

Wer kann mir einen Tipp geben?

Gruß Wolfgang
WinXP Home SP2, Office 2003 SP2
http://www.wk-bau-edv.de
 

Lesen sie die antworten

#1 arno
28/05/2008 - 08:07 | Warnen spam
Durch einfaches Aufzeichnen eines Makros (!!) beim Umstellen des Zoomfaktors
erhàlt man z. B.
ActiveWindow.Zoom = 86

und das kann man sich merken, daher z. B.

Sub Makro1()
MsgBox ActiveWindow.Zoom
ActiveWindow.Zoom = 86
x = ActiveWindow.Zoom
MsgBox x
End Sub

arno

Ähnliche fragen