In- en uitzoomen op werkbladen - VBA-codevoorbeelden

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
wave wave wave wave wave