高分求真言，用delphi控制excel中的单元格中的内容居中

Question

exworksheet.rows.horizontalalignment:=3;水平居中
exworksheet.rows.verticalalignment:=2;垂直居中
exworksheet.columns.autofit;自适应宽度

Answer 1

如果具体某一个单元格，如ExcelApp.Cells[1,1],该如何设置？

Answer 2

ExcelApp..ActiveSheet.Range['A1','A1']..HorizontalAlignment := xlCenter
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 3

打开你的excel
录制宏并查看
不是可以得到吗??

Answer 4

1、Excel_Worksheet.range[a :a]. select; //选择该列
Excel_app.selection.VerticalAlignment := xlCenter;//居中
2、Excel_Worksheet.range[a :a]. select; //选择该列
Excel_app.selection.VerticalAlignment := xlCenter;//居中
Excel_app.selection.Orientation = -90;//竖排Const
 xlDiagonalDown = 5;
 xlDiagonalUp = 6;
 xlEdgeLeft = 7;
 xlEdgeRight = 10;
 xlEdgeTop = 8;
 xlEdgeBottom = 9;
 xlInsideHorizontal = 12;
 xlInsideVertical = 11;
 xlNone = -4142 ;
 xlContinuous = 1;
 XLCENTER=-4108;