如何讓轉出Exce的統計圖上有數值 |
|
尚未結案
|
|
T-Jason
一般會員   發表：5 回覆：20 積分：10 註冊：2003-05-19 發送簡訊給我 |
小弟最近碰到一個問題，在我轉出Excel的統計圖上沒辦法在各個的柱狀上
加上數值，不知少了什麼指令，還煩請各位指導，謝謝。 begin
ExcelApplication1.Workbooks.Add(xlWBATWorksheet, 0);
aSheet := ExcelApplication1.Worksheets.Item[1];
aSheet.Name := '身心殘障手冊';
aSheet.Cells[1,2].Value := '聽力障礙';
aSheet.Cells[2,2].Value := '10';
aSheet.Cells[1,3].Value := '腦性麻痺';
aSheet.Cells[2,3].Value := '5';
aChart := aSheet.ChartObjects.Add(50,150,450,200);
series := aChart.chart.SeriesCollection;
series.Add('身心殘障手冊!R1C1:R2C3', True);
end;
請問我如何才能作到在兩個柱狀上可以分別SHOW出數值 '5' 跟 '10' 呢?
|
|
deity
尊榮會員  發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
T-Jason你好：
试试
begin
ExcelApplication1.Workbooks.Add(xlWBATWorksheet, 0);
aSheet := ExcelApplication1.Worksheets.Item[1];
aSheet.Name := '身心殘障手冊';
aSheet.Cells[1,2].Value := '聽力障礙';
aSheet.Cells[2,2].Value := '10';
aSheet.Cells[1,3].Value := '腦性麻痺';
aSheet.Cells[2,3].Value := '5';
aChart := aSheet.ChartObjects.Add(50,150,450,200);
series := aChart.chart.SeriesCollection;
series.Add('身心殘障手冊!R1C1:R2C3', True);
// 将数据存成Excel格式的文件
aSheet.SaveAs('C:\a.xls');
end; ——行径窄处，留一步与人行——
|
|
T-Jason
一般會員 發表：5 回覆：20 積分：10 註冊：2003-05-19 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
|
|
T-Jason
一般會員 發表：5 回覆：20 積分：10 註冊：2003-05-19 發送簡訊給我 |
發表時間：2004-04-08 14:03:25
IP:61.216.xxx.xxx 未訂閱
系統時間：2024-11-23 3:21:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |