Winword 7.0
Schrittweise zoomen per Mausklick
Antwort
Tip: Um in Word für Windows den Zoomfaktor zu ändern, gibt es normalerweise zwei
Möglichkeiten. Entweder man wählt den »Zoom«-Eintrag in der Symbolleiste mit der
Maus und muß gegebenenfalls den gewünschten Zoomfaktor eintippen, wenn er in der
Auswahl nicht vorhanden ist, oder man geht den Weg über das Menü »Ansicht |
Zoom«. Beide Möglichkeiten sind jedoch ziemlich aufwendig, oftmals wäre es erheblich
praktischer, die Zoomansicht schrittweise per Mausklick zu wechseln. Zwei Makros,
die Sie als Schaltfläche auf Ihre Symbolleiste legen können, machen es möglich. Eine
der beiden Schaltflächen vergrößert die Darstellung des Dokuments bei jedem
Mausklick um einen Wert, den Sie im Makro festgelegt haben, die andere verkleinert
sie.
Die beiden Makros im Kasten vergrößern beziehungsweise verkleinern die Ansicht um
jeweils fünf Prozent. Sollten Sie eine andere Schrittweite wünschen, ersetzen Sie den
Wert in der Zeile »zStep = 5« etwa durch »zStep = 10«, um in 10%-Schritten zu
zoomen. Der Wert »zLow = 100« bestimmt, zu welchem Zoomfaktor gesprungen wird,
wenn der Zoombereich von zehn bis 200% über- oder unterschritten wird. Wünschen
Sie einen anderen Standardwert, so geben Sie zum Beispiel »zLow = 75 %« an. Um
die Makros in die Symbolleiste von Word für Windows einzubinden, klicken Sie die
Symbolleiste mit der rechten Maustaste an und wählen aus dem Pop-Up-Menü den
Punkt »Anpassen«. Scrollen Sie dann unter »Kategorien:« so weit nach unten, bis Sie
die Zeile »Makros« markieren können. Nun ziehen Sie aus der Liste »Makros« Ihre
beiden Makros per Drag and Drop auf die Symbolleiste und verpassen Ihnen eines der
angebotenen Layouts oder gestalten mit »Bearbeiten« ein neues.
Makrolisting Zoomin
Sub MAIN On Error Goto errortrap zStep = 5 : zLow = 100 Dim zoom As
AnsichtZoom GetCurValues Zoom proz = Val(Zoom.ZoomProzent) proz = proz +
zStep If proz > 200 Then proz = zLow AnsichtZoom .ZoomProzent = proz errortrap:
If err = 509 Then Beep MsgBox "Kein Dokument!" End If End Sub Makrolisting
Zoomout
Sub MAIN On Error Goto errortrap zStep = - 5 : zLow = 100 Dim zoom As
AnsichtZoom GetCurValues Zoom proz = Val(Zoom.ZoomProzent) proz = proz +
zStep If proz < 10 Then proz = zLow AnsichtZoom .ZoomProzent = proz errortrap: If
err = 509 Then Beep MsgBox "Kein Dokument!" End If End Sub