Altura da linha - Largura da coluna - Exemplos de código VBA

Este tutorial demonstrará como definir a altura da linha e as larguras das colunas usando o VBA.

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

Definir a largura da coluna com VBA

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

123 Sub Column_Width ()Colunas ("A: E"). Largura da coluna = 30End Sub

Definir altura da linha com VBA

Macro para definir o altura da linha da linha 1:

123 Sub RowHeight ()Linhas ("1: 1"). RowHeight = 30End Sub

Ajuste automático da largura da coluna

O Excel oferece a capacidade de “ajustar automaticamente” as larguras das colunas. Este recurso ajusta a largura da coluna para 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 em VBA:

1 Colunas ("A: B"). Ajuste automático

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

Ajuste automático de altura da linha

Você também pode ajustar automaticamente as alturas das linhas usando um método semelhante:

1 Linhas ("1: 2"). Ajuste automático

Definir a largura da célula

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

1 Intervalo ("a1"). WholeColumn.ColumnWidth = 20

Definir altura da célula

Ou ajuste a altura das linhas referenciando uma célula:

1 Range ("a1"). WholeRow.RowHeight = 10

Obtenha a largura da coluna

Para obter a largura de uma coluna:

12 dim iColumnWidth enquantoiColumnWidth = colunas ("a"). ColumnWidth

Nota: Isso retornará Nulo se todas as colunas no intervalo não tiverem a mesma largura.

Obtenha a altura da linha

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

12 dim iRowHeight enquantoiRowHeight = rows ("1"). RowHeight
wave wave wave wave wave