Hoe de lettergrootte in te stellen met vba (met voorbeeld)

U kunt de eigenschap Font.Size in VBA gebruiken om de lettergrootte van specifieke cellen in Excel op te halen en in te stellen.

U kunt bijvoorbeeld de volgende macro gebruiken om een berichtvenster te maken waarin de huidige lettergrootte van cel A1 wordt weergegeven:

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

Of u kunt de volgende macro maken om de lettergrootte van cel A1 in te stellen op 20 :

 Sub SetFontSize()
Range(“ A1 ”). Font.Size = 20
End Sub

Of u kunt de volgende macro maken om de lettergrootte in elke cel in het bereik A1:C1 gelijk te maken aan 20 :

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

De volgende voorbeelden laten zien hoe u de lettergrootte kunt ophalen en instellen met VBA met de volgende gegevensset in Excel:

Voorbeeld 1: Lettergrootte ophalen met VBA

We kunnen de volgende macro maken om een berichtvenster te maken waarin de huidige lettergrootte van cel A1 wordt weergegeven:

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

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

Het berichtvenster vertelt ons dat cel A1 momenteel een lettergrootte van 11 heeft.

Dit is de standaardlettergrootte in Excel.

Voorbeeld 2: Stel de lettergrootte van een specifieke cel in met VBA

We kunnen de volgende macro maken om de lettergrootte van cel A1 in te stellen op 20 :

 Sub SetFontSize()
Range(" A1 ").Font.Size = 20
End Sub

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

We kunnen zien dat de lettergrootte van cel A1 is gewijzigd naar 20 , terwijl de lettergrootte van alle andere cellen ongewijzigd is gebleven.

Voorbeeld 3: Stel de lettergrootte van een celbereik in met VBA

We kunnen de volgende macro maken om de lettergrootte van elke cel in het bereik A1:C1 tot 20 in te stellen:

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

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

We kunnen zien dat de lettergrootte van elke cel in het A1:C1 -bereik is gewijzigd naar 20 , terwijl de lettergrootte van alle andere cellen ongewijzigd is gebleven.

Opmerking : u kunt hier de volledige documentatie voor de VBA Font.Size- eigenschap vinden.

Aanvullende bronnen

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

VBA: de kleur van het lettertype wijzigen
VBA: een lettertype vetgedrukt maken
VBA: tekens in een string vervangen