Delphi 之 ExcelWorksheet 元件, 很容易設定 Cell 之 Font 字型,大小,顏色 等.但對於 ExcelWorksheet.PageSetup.CenterHeader, ExcelWorksheet.PageSetup.RightHeader 等內容之 Font 字型,大小,顏色 應該如何才能設定呢? 請大家多多幫忙, 謝謝!!

参考： Delphi控制Excel2000操作全集 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29495

Try recording the action as a macro in Excel (VBA) and then open the macro  >

我可否請教sos_admin兄一個問題:設置指定列的寬度: ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 20 出現錯誤訊息:Method"ColumnsWidth" not supported by automation object 應該如何設定:ColumnsWidth 何明昌

------
何明昌

謝謝 william 得解答!! [:) 我 Try 了一下, 略為修改一點,就滿足我的需求. 至於顏色部份,Execl 本來在頁首設定部份,字型就無法設定顏色, 難怪我查了半天都找不到. 在此篇問題前幾天,我也請教了一個類似的問題, 但都沒人回答, 是否可再請教 william 呢? 之前沒人回答的問題是: 我使用 Delphi 之 ExcelWorksheet 元件, 在 Excel 成功畫出一條線,程式碼 為: ExcelWorksheet1.Shapes.AddLine(20,20,40,40); 畫出此線沒問題,但不 知道如何設定該線之寬度及顏色? 還有我想在頁尾的地方畫一橫線, 顯然 Excel頁尾應該無法畫線, 我又不想自已 用分頁方法來畫線,不知可有其他方法呢? 是否可用 PrintTitleRows 呢?

引言: 之前沒人回答的問題是: 我使用 Delphi 之 ExcelWorksheet 元件, 在 Excel 成功畫出一條線,程式碼 為: ExcelWorksheet1.Shapes.AddLine(20,20,40,40); 畫出此線沒問題,但不 知道如何設定該線之寬度及顏色? Failed to use early binding (access violation) , class="code">var Sel: OleVariant; ... ExcelWorksheet1.Shapes.AddLine(20,20,40,40).Select(EmptyParam); Sel := Selection[LCID]; Sel.ShapeRange.Line.ForeColor.SchemeColor := 10; ... 還有我想在頁尾的地方畫一橫線, 顯然 Excel頁尾應該無法畫線, 我又不想自已 用分頁方法來畫線,不知可有其他方法呢? 是否可用 PrintTitleRows 呢? I don't think do.. Maybe you can 'underlining white spaces' in the footer?

謝謝 william 再次的解答. Sel := Selection[LCID]; 此行在編譯時過不了. Delphi 無法辨識 Selection. Selection 應該是物件的方法吧 !?

Oh... I missed the with statement in testing.... 

謝謝 william, 沒問題了. 但能否再請教, 有可以不用 Selection 的方法嗎 ? 我用 Shape 的方式, 總是不行, 而且還會有 Ole Error , 方式如下: Var AShape:Shape; AShape:=ExcelWorksheet1.Shapes.AddLine(20,20,40,40); AShape.Line.Weight := 2; 如果沒有, 應如何 UnSelection 呢? 謝謝!!

.. I cannot connect to Excel now...  >> >> >

Tnanks william.