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 |