Excel passt 45º Text nicht automatisch an

Question

Wenn ich Spaltenheader bei 45 ° orientiere, muss ich jede Spalte manuell anpassen, da Auto-Fit den orientierten Text nicht mit der Nachbarzelle überlappen lässt.

Gibt es eine Möglichkeit, programmatisch (mit VBA) die Spalten automatisch anzupassen, wo sie sich überlappen? Ich hätte gerne eine Lösung, die auch die Schriftgröße berücksichtigt.

Answer 1

AutoFit funktioniert nur auf nicht 0º orientierten Text, wenn die Zelle mit dem orientierten Text hat Grenzen gesetzt. Ungerade ...

Answer 2

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

Werden die Spalten a - c automatisch in Blatt SheetName. Ist das wonach Sie gesucht haben?

Answer 3

Was Sie tun müssen, ist automatisch anpassen zu dem Zellbereich ohne der Kopfzeile:

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

Statt:

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