Inhoudsopgave
ActiveWindow.Zoom
U kunt VBA gebruiken om de zoom van een werkblad te wijzigen. Hier is de code om de zoom van het ActiveWindow in 50% te veranderen:
1 | ActiveWindow.Zoom = 50 |
Zoom wijzigen op alle werkbladen
U kunt ook door alle werkbladen in uw werkmap bladeren om een standaardzoom in te stellen. De volgende macro stelt de zoom voor alle werkbladen in op 50%:
123456789101112131415161718192021 | SubzoomAlles()Dim ws als werkbladApplication.ScreenUpdating = FalseVoor elke ws In werkbladenws.ActiverenActiveWindow.Zoom = 50VolgendeApplication.ScreenUpdating = TrueEinde sub |
Zoom Zoom
En tot slot een magisch groeiend werkblad. De volgende macro loopt door de Zooms voor Sheet1, gaande van 10% naar 200%, verhoogt met 10%, pauzeert een seconde tussen wijzigingen, en dan herstelt het Sheet1 terug naar zijn oorspronkelijke staat.
1234567891011121314151617181920212223242526272829303132333435363738 | SubzoomZoom()Dim x As Integer 'variabele voor lus'Dim OriginalZoom As Integer 'variabele voor originele zoom'Blad1.Activeer 'laten we werken met blad1'OriginalZoom = ActiveWindow.Zoom 'huidige zoom ophalen''loop door zoom 10 tot 200 bij 10'Voor x = 1 tot 20ActiveWindow.Zoom = x * 10Toepassing.Wacht nu + TimeValue ("00:00:01")Volgende x'originele zoom herstellen'ActiveWindow.Zoom = Originele ZoomEinde sub |