каков код Excel VBA, который установит правильную (все символы видны, а не лишнее пространство) высоту строки с Объединенными ячейками и переносом слов. Мой шрифт Calibri 11.
есть ли какая-то простая связь между размером шрифта, размером столбца и высотой строки с переносом по словам?
3537
перенесен ответ из вопроса OP:
KompOrigRowHeight = 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
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
