如何用ole控制excel的单元格的对齐方式?
range.OlePropertyGet("Cells").OlePropertyGet("Font").OlePropertySet("Color",RGB(255,0,255));可以控制单元格的字体,但怎样控制对齐方式呢?
//设置字体
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Range","A1:D1").OlePropertyGet("Font").OlePropertySet("Name","隶书");
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Range","A1:D1").OlePropertyGet("Font").OlePropertySet("Size",18);
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Range","A1:D1").OlePropertyGet("Font").OlePropertySet("Bold",True);
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Range","A1:D1").OlePropertyGet("Font").OlePropertySet("Italic",True);
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Range","A1:D1").OlePropertyGet("Font").OlePropertySet("Underline",True);
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Range","A1:D1").OlePropertyGet("Font").OlePropertySet("Color",clRed);
//设置对齐方式
//垂直对齐 1:左端对齐,3:居中, 4:右端对齐
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Range","A1:D1").OlePropertySet("HorizontalAlignment",3);
//水平对齐 1:顶端对齐,2:居中, 3:底端对齐
MSExcel.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet").OlePropertyGet("Range","A1:D1").OlePropertySet("VerticalAlignment",2);