Tenho uma célula com conteúdo de texto embalado em Excel e quero formatar a célula de modo a que a sua altura se ajuste ao conteúdo que se pode estender por várias linhas. Como posso conseguir este comportamento?
A partir de http://support.microsoft.com/kb/149663
Para ajustar a altura da linha para caber todo o texto numa célula, siga estes passos:
Seleccione a linha.
No Microsoft Office Excel 2003 e em versões anteriores do Excel, aponte para a linha no menu Format, e depois clique em AutoFit.
No Microsoft Office Excel 2007, clique no separador Home, clique em Format no grupo Cells, e depois em AutoFit Row Height.
Também funciona quando todas as linhas estão seleccionadas
Note-se que o autofit não funciona em células fundidas. Tem de o fazer manualmente.
Veja esta resposta da Microsoft: Não pode utilizar a funcionalidade AutoFit para linhas ou colunas que contenham células fundidas no Excel
Se não o fizer automaticamente, então coloque o cursor sobre a pequena linha entre os números das linhas (ex: entre 1 e 2) e clique duplo, isto redimensionará a linha (directamente acima da pequena linha, no exemplo: 1) para que tudo fique visível (a partir de um aspecto vertical).
A única forma de conseguir que funcione como esperado é destacar a folha inteira com CTRL-A, desmarcar o botão “Wrap Text” na barra de ferramentas e depois voltar a seleccioná-la. Nenhuma outra configuração é alterada, mas cada linha é agora a altura “adequada” para o seu conteúdo.
Uma solução VBA deve utilizar o seguinte:
Call Application.ActiveCell.AutoFit
Criei o seguinte código VB para redimensionar a linha do cabeçalho quando uma célula dentro de um intervalo (B2:B1500) porque valores de data superiores a 28/12/2014 fariam com que o cabeçalho mostrasse um aviso de que essas datas, numa folha de horas, passariam para a Semana1 de 2015:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an Action when they are changed.
Set KeyCells = Range("B2:B1500")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Change the height of the header row when one of the defined cdlls is changed
Rows("1:1").EntireRow.AutoFit
End If
End Sub