Macro para ajustar altura de linha ao conteúdo - Libreoffice Calc

[sammarrques]

Olá, amigos.

Sou iniciante nas macros do libreoffice. Por isso, peço sua ajuda.

Gostaria de uma macro que modificasse a altura de um conjunto de células de uma planilha para conter justamente a quantidade de linhas de texto em cada uma delas.

Estou automatizando uma publicação da empresa. De modo que, a depender dos resultados, as células podem ter de uma a várias linhas de texto (em quebra automática) que precisam ser atualizadas manualmente uma por uma.

Supondo que queira que as células A1, A3, B7 e C10 sejam os parâmetros, como posso automatizar esse processo?

Muito agradecido pelo seu valioso tempo!

[schiavinatto]

@sammarrques, se Formatar / Células… / Alinhamento em propriedades [v]Disposição automática do texto., deixar ativada, após a digitação a altura é alterada, tanto para mais ou para menos.

[Grafeno]

Boa tarte,

Talvez a macro abaixo, que define a propriedade “disposição automática do texto” para as células do intervalo B2:B10, possa te ajudar:

Sub Main
Dim oDoc as Object, oPlan as Object, oIntervalo as Object

   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("Planilha1")
   oIntervalo = oPlan.getCellRangeByName("B2:B10")
   
   oIntervalo.IsTextWrapped = True
   
End Sub

Atte,