ich habe heute schon eine Frage zu meinem Thema gestellt! Und zwar möchte ich je nach Fülle meines Blattes, die Formatierung auf Quer/-oder Hochformat einstellen!
Das klappt schon einwandrei, nur leider wird der Begriff ".Zoom" nicht variabel angepasst, sonder wenn er kleiner wird dann wird er nicht größer, obwohl die Breite meines Blattes abnimmt!
Meine Frage also jetzt, wie kann ich ".Zoom" variabel gestalten?
Hier ein Versuch meinerseits:
Dim z As Integer
Set ActiveSheet.PageSetup.Zoom = z
With ActiveSheet.PageSetup
If z <= 75 Then 'If ActiveSheet.PageSetup.Zoom <= 75 Then
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End If
If z > 75 Then 'If ActiveSheet.PageSetup.Zoom > 75 Then
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End If
End With
Danke für Eure Hilfe
LG Chris