ich lasse mir per VBA den Zoomfaktor im pagesetup automatisch einrichten (x hoch, 1 breit) Hierbei ermittelt Excel automatisch den Verkleinerungsfaktor.
Wie kann ich diesen Zoomfaktor auslesen und die Option "Verkleinern/Vergrößern" auf diesen Faktor wieder aktivieren?
Der Beitrag von Hans in der Recherche hilft mir nicht weiter:
Sub ZoomFaktor()
Dim varZoom As Variant
varZoom = Tabelle1.PageSetup.Zoom
MsgBox varZoom
End Sub
Da ich aktivesheet.pagesetup.zoom=false einstellen muss, damit Excel den Faktor finden kann, bringt mir die Msgbox auch nur "False" als Ergebnis.
Danke für Eure Hilfe
Gruß
Jens Huthmann