Notifications
Clear all

Altura da Linha com VBA

6 Posts
3 Usuários
0 Reactions
2,290 Visualizações
(@ricanero)
Posts: 41
Trusted Member
Topic starter
 

Boa Tarde para todos.

Estou fazendo uma planilha, onde as colunas possuem uma largura de 70, e assim devem permanecer. Essas células são formatadas com quebra de texto.

Quando coloco um texto extenso ele quebra automático, mas depois tenho que manualmente ajustar a altura da linha. Tentei usar o ajuste automático, mas desta forma a linha fica muito fina.

Gostaria de saber se é possível algo, se o texte quebrou em 2 linhas, a altura deve ser de 30, se quebrou em 3 de 45, ou seja a cada quebra a linha aumenta em 15.

Antes de postar, achei um tópico que fazia isso, mas ele contava o número que quebras com o ALt+ Enter, e não é desta maneira que gostaria.

Se alguém puder me ajudar.

Obrigado

Ricardo

 
Postado : 25/09/2018 3:09 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

.
Estranho você ter que ajustar manualmente a altura da linha!! ...Testei aqui com quebra automática de texto e após dar enter a linha ajusta a altura de acordo com a quantidade de quebra do texto!! ... Qual a versão do seu Excel? O meu é 2010!!
.

 
Postado : 25/09/2018 5:34 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Ricanero,

Bom dia!

Tem células mescladas? Se tiver... esse é problema. Para resolver isso, você pode criar uma macro (com o gravador de macros mesmo), quando terminar toda a digitação, para selecionar todas as linhas e alterar a altura das linhas.

 
Postado : 26/09/2018 4:42 am
(@ricanero)
Posts: 41
Trusted Member
Topic starter
 

Bom Dia Waner, estou utilizando o Office 365.
Quando vc dá enter, a linha ajusta de acordo com o espaço, mas eu gostaria que ficasse mais espassada.
Tipo uma linha a altura fosse 20, duas linhas a altura fosse 40, 3 linhas fosse 60 e assim por diante.
É possível fazer isso via VBA.

Obrigado

Ricardo

 
Postado : 26/09/2018 5:53 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Infelizmente... com Office 365, não sei se isso é possível. Trabalho com o Excel 2007.

 
Postado : 26/09/2018 6:59 am
(@ricanero)
Posts: 41
Trusted Member
Topic starter
 

Wagner, o Office utiliza o Excel 2016.

Não tenho células mescladas.

Alguem mais sabe se é possível

Obrigado

Ricardo

 
Postado : 26/09/2018 10:12 am