alle Tabellenblätter auf gewisse Größe zoomen

10/09/2009 - 09:41 von Christian John | Report spam
Hallo Community,

ich möchte ein Makro bauen, das alles Tabellenblàttern 65% Zoom zuweist.
Es sind relative viele Tabellenblàtter und der Name jedes einzelnen Blattes
soll keine Rolle spielen.
Wie bekomme ich das hin?

Mit active.window kann ich es jaicht machen, und bei Sheets scheint es Zoom
ja nicht zu geben

??

Danke!

grüße
Christian John
 

Lesen sie die antworten

#1 Claus Busch
10/09/2009 - 09:54 | Warnen spam
Hallo Chritian,

Am Thu, 10 Sep 2009 00:41:01 -0700 schrieb Christian John:

ich möchte ein Makro bauen, das alles Tabellenblàttern 65% Zoom zuweist.
Es sind relative viele Tabellenblàtter und der Name jedes einzelnen Blattes
soll keine Rolle spielen.



probiers mal so:
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Activate
ActiveWindow.Zoom = 65
Next
Application.ScreenUpdating = True


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen