Como definir o tamanho da fonte usando vba (com exemplo)

Você pode usar a propriedade Font.Size no VBA para obter e definir o tamanho da fonte de células específicas no Excel.

Por exemplo, você pode usar a macro a seguir para criar uma caixa de mensagem exibindo o tamanho da fonte atual da célula A1 :

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

Ou você pode criar a seguinte macro para definir o tamanho da fonte da célula A1 como 20 :

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

Ou você pode criar a seguinte macro para tornar o tamanho da fonte em cada célula no intervalo A1:C1 igual a 20 :

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

Os exemplos a seguir mostram como obter e definir o tamanho da fonte usando VBA com o seguinte conjunto de dados no Excel:

Exemplo 1: Obtenha o tamanho da fonte usando VBA

Podemos criar a seguinte macro para criar uma caixa de mensagem que exibe o tamanho da fonte atual da célula A1 :

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

Quando executamos esta macro, recebemos a seguinte saída:

A caixa de mensagem nos informa que a célula A1 atualmente tem um tamanho de fonte 11 .

Este é o tamanho de fonte padrão no Excel.

Exemplo 2: Defina o tamanho da fonte de uma célula específica usando VBA

Podemos criar a seguinte macro para definir o tamanho da fonte da célula A1 para 20 :

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

Quando executamos esta macro, recebemos a seguinte saída:

Podemos ver que o tamanho da fonte da célula A1 foi alterado para 20 , enquanto o tamanho da fonte de todas as outras células permaneceu inalterado.

Exemplo 3: Defina o tamanho da fonte de um intervalo de células usando VBA

Podemos criar a seguinte macro para definir o tamanho da fonte de cada célula no intervalo A1:C1 a 20 :

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

Quando executamos esta macro, recebemos a seguinte saída:

Podemos ver que o tamanho da fonte de cada célula no intervalo A1:C1 foi alterado para 20 , enquanto o tamanho da fonte de todas as outras células permaneceu inalterado.

Nota : Você pode encontrar a documentação completa da propriedade Font.Size do VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como alterar a cor da fonte
VBA: Como deixar uma fonte em negrito
VBA: Como substituir caracteres em uma string