Πίνακας περιεχομένων
ActiveWindow.Zoom
Μπορείτε να χρησιμοποιήσετε το VBA για να αλλάξετε το ζουμ ενός φύλλου εργασίας. Ακολουθεί ο κώδικας για να αλλάξετε το ζουμ του ActiveWindow σε 50%:
| 1 | ActiveWindow.Zoom = 50 |
Αλλαγή ζουμ σε όλα τα φύλλα εργασίας
Μπορείτε επίσης να περιηγηθείτε σε όλα τα φύλλα εργασίας στο βιβλίο εργασίας σας για να ορίσετε ένα τυπικό ζουμ. Η ακόλουθη μακροεντολή θα ορίσει το Ζουμ για όλα τα φύλλα εργασίας στο 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws Ως φύλλο εργασίαςApplication.ScreenUpdating = ΛάθοςΓια κάθε ws σε φύλλα εργασίαςws. ΕνεργοποιήστεActiveWindow.Zoom = 50ΕπόμενοApplication.ScreenUpdating = TrueΤέλος υπο |
Ζουμ Ζουμ
Και τέλος ένα μαγικά αναπτυσσόμενο φύλλο εργασίας. Η ακόλουθη μακροεντολή θα πραγματοποιήσει βρόχο στο Zoom for Sheet1, από 10%σε 200%, θα αυξηθεί κατά 10%, θα σταματήσει ένα δευτερόλεπτο μεταξύ των αλλαγών και στη συνέχεια θα επαναφέρει το Sheet1 στην αρχική του κατάσταση.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'μεταβλητή για βρόχοDim OriginalZoom As Integer 'μεταβλητή για αρχικό ζουμΦύλλο 1. Ενεργοποιήστε το "ας δουλέψουμε με το φύλλο 1"OriginalZoom = ActiveWindow.Zoom 'λάβετε το τρέχον ζουμ«βρόχος στο ζουμ 10 έως 200 επί 10Για x = 1 έως 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Επόμενο x"επαναφορά του αρχικού ζουμActiveWindow.Zoom = OriginalZoomΤέλος υπο |
