Altura da linha da planilha - VBA (Resolvido)

[Rafael Monteiro]

Apreciei o bom exemplo que o Leandro Alves inseriu em um de seus projetos, uma macro que aumenta a largura da coluna da planilha:

Columns("a:a").ColumnWidth = 20

Estou tentando fazer isso com a altura da linha, mas até agora não tive resultados positivos, peço ajuda para os membros do fórum para me ajudar a solucionar esse detalhe.

Anexei modelo simples só para mostrar a eficiência da macro.

Abraços.

[joseA]

Código: Selecionar todos

Sub Largura()
  Columns("a:a").ColumnWidth = 30
  Columns("a:a").RowHeight = 30
End Sub

Sub Lagura_padrão()
 Columns("a:a").ColumnWidth = 8.43
 Columns("a:a").RowHeight = 12.75
End Sub

[joseA]

Em tempo...

Para ajustar altura automático conforme conteúdo digitado.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("A:F").EntireRow.AutoFit
End Sub

O mesmo para largura.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("A:F").EntireColumn.AutoFit
End Sub

[Rafael Monteiro]

Excelente JoseA,

Apenas fiz um ajuste para que a macro aumente apenas 1 linha.

Valeu pela dica JoseA, é sempre necessário uma forcinha para continuarmos ativo nessa atividade de programação!

Abs.

Código: Selecionar todos

Sub altura()
Range("a1").RowHeight = 25
End Sub

Sub altura_Padrão()
Range("a1").RowHeight = 12.75
End Sub