如何用Delphi设置Excel的行高和列宽

方法：缩小文字或自动换行。
1、打开EXCEL表格，选中单元格，之后右键--设置单元格格式。

2、在弹出的页面，选择“对齐”，文本控制选择为“缩小字体填充”即可。

3、另外也可用自动换行的方法。

EclApp.worksheets[1].Rows('1:4').Height:=20;//好像是这样,你可以在试试
你可以用ExcelApplication控件可以轻松实现你的要求啊！
(一) 使用动态创建的方法
首先创建 Excel 对象e799bee5baa6e997aee7ad94e58685e5aeb9362,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口:
ExcelApp.Visible := True;
2) 更改 Excel 标题栏:
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿:
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿:
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表:
ExcelApp.WorkSheets[2].Activate;
或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值:
ExcelApp.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度(单位:磅)(1磅＝0.035厘米),以第二行为例:
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

8、文字水平居中：Excelid.worksheets[1].Rows[1].HorizontalAlignment :=$FFFFEFF4;
文字垂直居中：Excelid.worksheets[1].Rows[1].VerticalAlignment :=$FFFFEFF4;
9、 插入一行或一列：a. ExcelApp.ActiveSheet.Rows[2].Insert;
b. ExcelApp.ActiveSheet.Columns[1].Insert;
10、 删除一行或一列：a. ExcelApp.ActiveSheet.Rows[2].Delete;
b. ExcelApp.ActiveSheet.Columns[1].Delete;

EclApp.worksheets[1].Rows('1:4').Height:=20;//好像是这样，记不怎么清楚了。