Range.ShrinkToFit (Excel)
Gibt einen Variant -Wert zurück, der angibt, ob der Text automatisch verkleinert wird, um in die verfügbare Spaltenbreite einzufügen, oder legt diesen fest.
Diese Eigenschaft gibt true zurück, wenn der Text automatisch an die verfügbare Spaltenbreite angepasst wird, oder null , wenn diese Eigenschaft nicht auf denselben Wert für alle Zellen im angegebenen Bereich festgelegt ist.
ActiveCell.ShrinkToFit = True