請問Delphi如何控制Excel達成"跨欄置中"的效果 |
|
答題得分者是：shieh2700
|
|
bc
一般會員   發表：1 回覆：6 積分：1 註冊：2004-08-18 發送簡訊給我 |
|
|
shieh2700
高階會員  發表：0 回覆：127 積分：100 註冊：2002-06-13 發送簡訊給我 |
引言: 小弟需要控制Excel表格某些格達到"跨欄置中"方式來表現。請問先進我該如何做呢? //uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var xlsAp, bk : OleVariant; begin xlsAp := CreateOleObject( 'Excel.Application' ); xlsAp.Visible := true ; bk := xlsAp.WorkBooks.Add; bk.Sheets[1].Range['A1','E1'].MergeCells := true; bk.Sheets[1].Range['A1','E1'].HorizontalAlignment := $FFFFEFF4; bk.Sheets[1].Range['A1','E1'].VerticalAlignment := $FFFFEFF4; end; |
|
bc
一般會員 發表：1 回覆：6 積分：1 註冊：2004-08-18 發送簡訊給我 |
|
|
shieh2700
高階會員 發表：0 回覆：127 積分：100 註冊：2002-06-13 發送簡訊給我 |
引言: 感謝，請問以下這有啥作用呢? bk.Sheets[1].Range['A1','E1'].HorizontalAlignment := $FFFFEFF4; bk.Sheets[1].Range['A1','E1'].VerticalAlignment := $FFFFEFF4;bk.Sheets[1].Range['A1','E1'].HorizontalAlignment := $FFFFEFF4; //將 Sheet[1] 中 A1 至 E1 儲存格的水平對齊設為 [置中] bk.Sheets[1].Range['A1','E1'].VerticalAlignment := $FFFFEFF4; //將 Sheet[1] 中 A1 至 E1 儲存格的垂直對齊設為 [置中] |
發表時間：2004-08-26 16:43:14
IP:220.134.xxx.xxx 未訂閱
系統時間：2024-11-22 9:33:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |