Configuração da Altura da Linha via Excel VBA com células mescladas e quebra automática de linha

Question

O que é o código VBA do Excel que definirá a altura da linha correta (todos os caracteres visíveis e não excedentes) com células mescladas e quebra automática de linha. Minha fonte é Calibri 11.

Existe alguma relação simples entre tamanho da fonte, tamanho da coluna e altura da linha com quebra de linha?

    

Answer 1

Movida a resposta da pergunta do OP:

OrigRowHeight = SafeRange.RowHeight
OrigColWidth = SafeRange.ColumnWidth

CurRow = ActiveCell.Row
CurCol = ActiveCell.Column
NumMergeCols = ActiveCell.MergeArea.Count
LastCol = CurCol + NumMergeCols - 1

For i = CurCol To LastCol
    CombinedColWidth = CombinedColWidth + Cells(CurRow, i).ColumnWidth
Next i

' Most of the following code came from Superuser user6261023 (My Thanks)
With SafeSheet.Range(SafeRange.Address)
    TargetRange.Copy
    .PasteSpecial xlPasteAll
    .UnMerge
    .ColumnWidth = CombinedColWidth
    .Value = TargetRange.Value
    .EntireRow.AutoFit
    NeededRowHeight = 1.05 * .RowHeight / TargetRange.MergeArea.Rows.Count
    .ClearContents
    .ClearFormats
    .RowHeight = OrigRowHeight
    .ColumnWidth = OrigColWidth
End With

'Return NeededRowHeight
NewRowHeight = NeededRowHeight