如何在delphi中设置Excel单元格顶对齐?

Question

rt

Answer 1

在excel里录制宏，再copy一下：
        .VerticalAlignment = xlTop

Answer 2

ExcelApp.ActiveSheet.Range['A1','B1'].HorizontalAlignment:=$FFFFEFF4; //水平对齐
  ExcelApp.ActiveSheet.Range['A1','B1'].VerticalAlignment:=$FFFFEFF4;//垂直对齐
  可取以下值。
  xlCenter = $FFFFEFF4;
  xlTop = $FFFFEFC0;
  xlBottom = $FFFFEFF5;
  xlLeft = $FFFFEFDD;
  xlRight = $FFFFEFC8;
  可打开 delphi安装目录\Ocx\Servers\Excel97.pas 
  或     delphi安装目录\Ocx\Servers\Excel2000.pas 
  或     delphi安装目录\Ocx\Servers\ExcelXP.pas 查看