Alterar a altura da linha para 20, apenas da linha da ativa.

Nota: Esta resposta foi traduzida usando uma ferramenta de tradução automática; peço desculpas por quaisquer erros gramaticais ou semânticos. Agradeço a sua compreensão. Se algo na minha resposta não estiver claro, por favor, deixe uma mensagem e responderei assim que possível.

Prezado(a) @GENECI SOUZA,

É perfeitamente possível automatizar isso usando uma macro de evento VBA simples. Para obter o efeito em que a altura "segue" o cursor, utilizamos o evento Worksheet_SelectionChange. Esse gatilho é acionado sempre que você move a célula ativa.

Recomendo usar o seguinte código. Ele primeiro redefine todas as linhas para a altura padrão de 15 e, em seguida, atualiza especificamente a linha ativa para 20.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 1. Reset all rows to the standard height of 15
    Cells.RowHeight = 15
    ' 2. Set the height of the currently selected row to 20
    Target.EntireRow.RowHeight = 20
End Sub

Para que isso funcione, você deve inserir o código no módulo Planilha, e não em um módulo padrão:

1. Clique com o botão direito do mouse no nome da guia da sua planilha (por exemplo, "Planilha1") na parte inferior do Excel.
2. Selecione Exibir Código.
3. Cole o código fornecido acima na janela branca que aparecer.
4. Feche o editor VBA e retorne ao Excel.

Agora, ao clicar em diferentes células, você verá a altura das linhas se ajustar dinamicamente.

• Desempenho: Usar Cells.RowHeight = 15 é eficiente para planilhas padrão. No entanto, se você tiver um conjunto de dados enorme com milhares de linhas, redefinir a planilha inteira a cada clique pode causar uma leve oscilação na imagem.
• Formato do arquivo: Lembre-se de salvar sua pasta de trabalho como uma Pasta de Trabalho Habilitada para Macros do Excel (.xlsm); caso contrário, o código VBA será removido ao fechar o arquivo.
• De acordo com a propriedade Range.RowHeight (Excel) | Microsoft Learn, essa propriedade é a maneira mais direta de manipular as dimensões da linha programaticamente.

Espero que isso ajude seu cliente a resolver o problema rapidamente! Informe-me se precisar de mais algum ajuste.

Se a resposta for útil, clique em "Aceitar resposta" e vote positivamente. Se tiver mais alguma dúvida sobre esta resposta, clique em "Comentar".

Nota: Siga os passos na nossa documentação para ativar as notificações por e-mail, caso deseje receber notificações por e-mail sobre esta conversa.