請教諸位高手: 我使用 Delphi 之 ExcelWorksheet 元件, 在 Excel 成功畫出一條線,程式碼 為: ExcelWorksheet1.Shapes.AddLine(20,20,40,40); 但不知如何設定該線之顏色及寬度? 請大家多多指導, 謝謝!!

Wawa您好：

var
  AShape: Shape;
begin
  AShape := ExcelWorksheet1.Shapes.AddLine(20,20,40,40);
  AShape.Line.ForeColor.RGB := RGB(255, 0, 0);//設定線條顏色為紅色
  //AShape.Line.BackColor.RGB := RGB(255, 255, 0);
  AShape.Line.Weight := 10;//設定線條寬度
end;

謝謝 Rain 的解答!! 你所說的方法, 我原本就是用此方法, 用 ExcelWorksheet 元件,是不行的. Run time 時, 會有 Ole Error C000005 的錯誤訊息. 但用 ExcelApp:=CreateOleObject('Excel.Application'); 的方式連上 Excel,則無問題. 不知道是否是 Delphi ExcelWorksheet 元件,本身的問題呢?