Deze zelfstudie laat zien hoe u VBA kunt gebruiken om tekst in een cel zowel horizontaal als verticaal te centreren.
We kunnen de groep Uitlijning in het Home-lint in Excel gebruiken om tekst zowel horizontaal als verticaal in een cel te centreren. Als we een macro schrijven om tekst op te maken, kunnen we deze functionaliteit opnieuw maken met VBA-code.
Tekst horizontaal centreren
Om tekst horizontaal in een enkele cel te centreren, kunnen we de volgende code gebruiken:
| 123 | Sub CenterText()ActiveCell.HorizontalAlignment = xlCenterEinde sub |
Als alternatief kunnen we, om tekst horizontaal in elke cel van een geselecteerd celbereik te centreren, het object Selectie gebruiken en het volgende doen:
| 123 | Sub CenterText()Selectie.HorizontalAlignment = xlCenterEinde sub |
We kunnen de uitlijning ook naar rechts of links wijzigen met de xlLinks en xlRechts constanten.
Om de tekst in een cel rechts uit te lijnen, kunnen we daarom de volgende code gebruiken:
| 123 | Sub RightAlignText()ActiveCell.HorizontalAlignment = xlRightEinde sub |
Tekst verticaal centreren
Het verticaal centreren van de tekst is vrijwel hetzelfde als horizontaal.
| 123 | SubcentrumTextVertical()ActiveCell.VerticalAlignment = xlCenterEinde sub |
Zoals het verticaal centreren van tekst over een selectie:
| 123 | SubcentrumTekstVerticaal()Selectie.VerticalAlignment = xlCenterEinde sub |
We kunnen de tekst ook wijzigen in de boven- of onderkant van een cel of selectie met behulp van de xlTop of xlOnderkant constanten.
| 123 | Sub TopUitlijnenVerticaal()ActiveCell.VerticalAlignment = xlTopEinde sub |
Tekst tegelijkertijd horizontaal en verticaal centreren
Als we de tekst tegelijkertijd horizontaal en verticaal willen centreren, zijn er een aantal manieren waarop we dat kunnen doen.
| 1234 | SubcentrumBeide()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterEinde sub |
Als alternatief kunnen we, om het herhalen van code te verminderen, een With en End With Statement gebruiken.
| 123456 | SubcentrumBeide2()Met selectie.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterEindigt metEinde sub |
De bovenstaande code is van toepassing op alle cellen in Excel die op dat moment zijn geselecteerd.
Het gebruik van With en End With is zeer effectief wanneer we veel opmaak moeten doen binnen de selectie, zoals het samenvoegen van cellen of het wijzigen van de oriëntatie.
| 12345678 | Sub MergeAndCenter()Met selectie.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Oriëntatie = -36.MergeCells = TrueEindigt metEinde sub |
