M
Michael Yayannis
Hallo allerseites!
Ich möchte im code den Zoom der Seite
activesheet.PageSetup.Zoom
so lange verkleinern bis eine bestimmte Seitenanzahl
VPageBreaks.count + 1
erreicht ist.
Das Problem ist, dass sich excel mit der Neuberechnung der Seitenumbrüche
sehr viel zeit lässt. Wie kann ich erzwingen, dass nach jedem Herabsetzen
vom Zoom die Seitenumbrüche neu berechnet werden? Habe schon mit hin- und
herschalten der Ansichten
ActiveWindow.view = xlNormalView
ActiveWindow.view = xlPageBreakPreview
versucht, funktioniert zwar, aber dauert trotz
Application.ScreenUpdating=false/true
sehr lange..
Hier der ganze Code:
dim counter as Integer
counter = 1
Application.ScreenUpdating = False
With ActiveSheet
Do Until .VPageBreaks.Count + 1 = 7 ' Meine gewünschte Seitenzahl
.PageSetup.Zoom = 100 - counter
With ActiveWindow
.view = xlNormalView
.view = xlPageBreakPreview
End With
counter = counter + 1
Loop
End With
Application.ScreenUpdating = True
Danke und Gruß!!!
Ich möchte im code den Zoom der Seite
activesheet.PageSetup.Zoom
so lange verkleinern bis eine bestimmte Seitenanzahl
VPageBreaks.count + 1
erreicht ist.
Das Problem ist, dass sich excel mit der Neuberechnung der Seitenumbrüche
sehr viel zeit lässt. Wie kann ich erzwingen, dass nach jedem Herabsetzen
vom Zoom die Seitenumbrüche neu berechnet werden? Habe schon mit hin- und
herschalten der Ansichten
ActiveWindow.view = xlNormalView
ActiveWindow.view = xlPageBreakPreview
versucht, funktioniert zwar, aber dauert trotz
Application.ScreenUpdating=false/true
sehr lange..
Hier der ganze Code:
dim counter as Integer
counter = 1
Application.ScreenUpdating = False
With ActiveSheet
Do Until .VPageBreaks.Count + 1 = 7 ' Meine gewünschte Seitenzahl
.PageSetup.Zoom = 100 - counter
With ActiveWindow
.view = xlNormalView
.view = xlPageBreakPreview
End With
counter = counter + 1
Loop
End With
Application.ScreenUpdating = True
Danke und Gruß!!!