VBA – Definir Largura da Coluna ou Altura da Linha

Este tutorial demonstrará como definir a altura da linha e a largura da coluna usando o VBA.

As alturas das linhas e as larguras das colunas do Excel podem ser alteradas no VBA, definindo as propriedades .RowHeight e .ColumnWidth.

Definir a Largura da Coluna com o VBA

Macro para definir a largura da coluna das colunas A a E:

Sub Largura_Coluna()
    Columns("A:E").ColumnWidth = 30
End Sub

Definir a Altura da Linha com o VBA

Macro para definir a altura da linha da Linha 1:

Sub Altira_Linha()
    Rows("1:1").RowHeight = 30
End Sub

Ajuste Automático da Largura da Coluna

O Excel oferece a capacidade de “ajustar automaticamente” a largura das colunas. Esse recurso ajusta a largura da coluna de modo que a(s) coluna(s) seja(m) larga(s) o suficiente para caber todo o texto encontrado nessa coluna.

Para ajustar automaticamente as larguras das colunas no VBA:

Columns("A:B").Autofit

Escrevemos mais sobre isso em outro artigo sobre como ajustar automaticamente uma coluna no VBA, incluindo como ajustar automaticamente todas as colunas usadas.

Autofit da Altura da Linha

Você também pode ajustar automaticamente a altura das linhas usando um método semelhante:

Rows("1:2").Autofit

Definir a Largura da Célula

Você também pode ajustar a largura das colunas fazendo referência a uma célula:

Range("a1").EntireColumn.ColumnWidth = 20

Definir Altura da Célula

Ou ajustar a altura das linhas fazendo referência a uma célula:

Range("a1").EntireRow.RowHeight = 10

Obter a Largura da Coluna

Para obter a largura da coluna de uma coluna:

dim iColumnWidth as long
iColumnWidth = columns("a").ColumnWidth

Observação: esse procedimento retornará Null se todas as colunas do intervalo não tiverem a mesma largura.

Obter a Altura da Linha

Da mesma forma, você pode obter a altura da linha:

dim iRowHeight as long
iRowHeight = rows("1").RowHeight

<<Voltar para exemplos de VBA