Table des matières
ActiveWindow.Zoom
Vous pouvez utiliser VBA pour modifier le zoom d'une feuille de calcul. Voici le code pour changer le Zoom de l'ActiveWindow à 50% :
| 1 | ActiveWindow.Zoom = 50 |
Modifier le zoom sur toutes les feuilles de calcul
Vous pouvez également parcourir toutes les feuilles de calcul de votre classeur pour définir un zoom standard. La macro suivante définira le zoom de toutes les feuilles de calcul sur 50 % :
| 123456789101112131415161718192021 | Sous ZoomAll()Dim ws As Feuille de calculApplication.ScreenUpdating = FauxPour chaque ws dans les feuilles de calculws.ActiverActiveWindow.Zoom = 50ProchainApplication.ScreenUpdating = TrueFin du sous-marin |
Zoomer Zoomer
Et enfin une feuille de travail qui grandit comme par magie. La macro suivante parcourra les zooms pour Sheet1, passant de 10 % à 200 %, en incrémentant de 10 %, en faisant une pause d'une seconde entre les modifications, puis elle restaurera Sheet1 à son état d'origine.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sous ZoomZoom()Dim x As Integer 'variable pour boucleDim OriginalZoom As Integer 'variable pour le zoom d'origineSheet1.Activate 'travaillons avec sheet1OriginalZoom = ActiveWindow.Zoom 'obtenir le zoom actuel'boucle par zoom 10 à 200 par 10Pour x = 1 à 20FenêtreActive.Zoom = x * 10Application.Attendez maintenant + TimeValue("00:00:01")Suivant x'restaurer le zoom d'origineActiveWindow.Zoom = OriginalZoomFin du sous-marin |
