Determines if
text automatically shrinks to fit in the available column
width. Read/write Boolean. Default value is False
Syntax
property ShrinkToFit: Boolean;
Example
This example sets ShrinkToFit property for the cells B5:F30 on sheet one
Workbook.Sheets[1].Range['B5','F30'].ShrinkToFit := true;