Zoom gebruiken in vba (met voorbeelden)

U kunt de volgende methoden gebruiken om zoom in Excel op te geven met VBA:

Methode 1: Stel de zoom in op een specifiek bedrag

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Deze specifieke macro stelt de zoom in op 150% voor het momenteel actieve blad.

Methode 2: Stel de zoom in op het momenteel geselecteerde bereik

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Deze specifieke macro zoomt in op het momenteel geselecteerde bereik.

Methode 3: Zoom instellen op een specifiek bereik

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Deze specifieke macro zoomt in op het bereik C1:E5 .

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken met het volgende Excel-blad dat een set gegevens over verschillende basketbalspelers bevat:

Voorbeeld 1: Stel de zoom in op een specifiek bedrag

We kunnen de volgende macro gebruiken om de zoomlens van het momenteel actieve blad in te stellen op 150% :

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Wanneer we deze macro uitvoeren, heeft het blad automatisch een zoomfactor van 150% :

Houd er rekening mee dat de standaardzoom 100 is.

Door de zoom in te stellen op een waarde groter dan 100, zoomen we in.

Om uit te zoomen, stelt u de zoom in op een waarde kleiner dan 100.

Voorbeeld 2: Stel de zoom in op het momenteel geselecteerde bereik

We kunnen de volgende macro gebruiken om de zoom van het momenteel actieve blad in te stellen op het momenteel geselecteerde bereik:

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Stel dat we bijvoorbeeld het bereik A7:C11 selecteren.

Wanneer we deze macro uitvoeren, zoomt het blad automatisch in op dit bereik:

Voorbeeld 3: Zoom instellen op een specifiek bereik

We kunnen de volgende macro gebruiken om de zoom van het momenteel actieve blad in te stellen op het bereik C1:E5 :

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Wanneer we deze macro uitvoeren, zoomt het blad automatisch in op dit bereik:

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Hoe u het aantal rijen in een bereik kunt tellen met VBA
Hoe u door spreadsheets navigeert met VBA
Hoe alle rijen te tonen met VBA