Excel не подгоняет текст 45º

Question

Когда я ориентирую заголовки столбцов на 45º, мне приходится вручную изменять размер каждого столбца, так как автоподгонка не позволяет ориентированному тексту перекрываться с соседней ячейкой.

Есть ли способ программно (с VBA) автоматически подгонять столбцы, где они будут перекрываться? Мне бы хотелось решение, которое бы учитывало размер шрифта.

Answer 1

Что вам нужно сделать, так это автоматически установить диапазон ячеек исключая строку заголовка:

Sub autofitToRange()
    Range("B2:F5").Columns.AutoFit
End Sub

Вместо:

Sub autofitFullColumns()
    Range("B:F").Columns.AutoFit
End Sub

Answer 2

AutoFit работает только с текстом без ориентации 0º, когда ячейка с ориентированным текстом имеет установленные границы. Странно ...

Answer 3

SheetName.Range("a:c").Columns.EntireColumn.AutoFit

Будет автоматически устанавливать столбцы a - c на листе SheetName. Это то, что вы искали?