Rijhoogte wijzigen in vba (met voorbeelden)

U kunt de volgende methoden gebruiken om de rijhoogte in Excel te wijzigen met VBA:

Methode 1: Verander de hoogte van een rij

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

Deze specifieke macro verandert de hoogte van de derde rij naar 40 .

Let op : De standaard rijhoogte in Excel is 14,4 .

Methode 2: Wijzig de hoogte van meerdere rijen

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

Deze specifieke macro verandert de hoogte van elke rij van één naar vijf naar 40 .

Methode 3: Pas automatisch de hoogte van meerdere rijen aan

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

Deze specifieke macro past automatisch de hoogte van elke regel aan van één tot acht, zodat deze zo hoog is als nodig is om de hoogste tekst op elke regel weer te geven.

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken met de volgende gegevensset in Excel:

Gerelateerd: Kolombreedte wijzigen in VBA

Voorbeeld 1: Wijzig de hoogte van een rij

We kunnen de volgende macro maken om de hoogte van de derde rij te wijzigen in 40:

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat alleen de hoogte van de derde rij werd verhoogd naar 40, terwijl de hoogte van alle andere rijen hetzelfde bleef.

Voorbeeld 2: Wijzig de hoogte van meerdere regels

We kunnen de volgende macro maken om de hoogte van elke rij te wijzigen van één naar vijf naar 40:

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat de hoogte van elk van de eerste vijf rijen is veranderd naar 40, terwijl de hoogte van alle andere rijen hetzelfde is gebleven.

Voorbeeld 3: Automatisch de hoogte van meerdere rijen aanpassen

We kunnen de volgende macro maken om de hoogte van elk van de eerste acht regels automatisch aan te passen, zodat deze zo hoog is als nodig is om de hoogste tekst op elke regel weer te geven:

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat de hoogte van elke regel automatisch is aangepast om zo groot te zijn als nodig is om de hoogste tekst op elke regel weer te geven:

Aanvullende bronnen

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

VBA: Hoe de laatst gebruikte regel te vinden
VBA: hoe u een regel met opmaak invoegt
VBA: het aantal rijen binnen bereik tellen