ActiveWindow für alle Tabellenblätter auf 80% per
03.09.2003 18:05:25
Andreas
ich habe ein kleines Programm wo mehrere Mitarbeiter damit arbeiten müssen.mein Problem ist, das die Mitarbeiter nicht alle die gleiche Monitorgröße haben.
um aber die Tabellen für alle Monitorgrößen anzuzeigen, müßte ich bei einem 17" Zoll-Monitor die ActiveWindow auf 80" einstellen.
dies soll mit hilfe von Schaltflächen erreicht werden,wo der Anwender seine Monitorgröße selbst auswählen kann.
hier mal mein Makro das eigentlich funktioniert, blos dabei wird nur das aktive Tabellenblatt auf 80% gesetzt, ich möchte aber das alle Tabellenblätter der Arbeitsmappe auf 80% gesetz werden
was mache ich da falsch an meinem Code?
Sub Monitorgröße_17zoll()
Dim intSheet As Integer
For intSheet = 1 To Worksheets.Count
With ActiveWindow
.Zoom = 80
End With
Next IntSheet
End Sub
kann mir da von Euch vielleicht einer weiterhelfen?
erst mal Danke für Eure Bemühungen
Gruß Andreas
Anzeige