当Excel单元格中输入的文字长度超过单元格的宽度时，内容就无法完全显示出来或者会占用下一个单元格，如果不想改变列宽，就需要缩小字体来显示全部内容。本文将介绍如何使用Spire.XLS设置Excel单元格自动缩小字体，以适应列宽。

原文档：

//加载Excel文档
Workbook workbook = new Workbook();
workbook.LoadFromFile(@"Input.xlsx");

//获取第一张工作表
Worksheet sheet = workbook.Worksheets[0];

//指定需要自动缩小字体的单元格范围
CellRange cell = sheet.Range["A1:E3"];

//设置ShrinkToFit为true
CellStyle style = cell.Style;
style.ShrinkToFit = true;

//保存文档
workbook.SaveToFile("ShrinkTextToFitCell.xlsx", ExcelVersion.Version2013);

'加载Excel文档
Dim workbook As New Workbook()
workbook.LoadFromFile("Input.xlsx")

'获取第一张工作表
Dim sheet As Worksheet = workbook.Worksheets(0)

'指定需要自动缩小字体的单元格范围
Dim cell As CellRange = sheet.Range("A1:E3")

'设置ShrinkToFit为true
Dim style As CellStyle = cell.Style
style.ShrinkToFit = True

'保存文档
workbook.SaveToFile("ShrinkTextToFitCell.xlsx", ExcelVersion.Version2013)

结果文档：