看了论坛里的贴子,可以用DELPHI画饼图了,不过不知道怎么让饼图中显示出百分比和具体的数值?
那位高人知道的话希望指教一下,在下谢过了先!还有这下面这样的代码是从按什么说明写的?
Range1:=sheet1.Range[cell1,cell2];
//設定Chart類別座標軸的取值范圍
Range2:=sheet1.Range[cell3,cell4];
//設定Chart數值座標軸的取值范圍
Range1.Borders.Color:=27;
Range2.Borders.Color:=6;
//向工作表中添加內嵌圖表﹐Add方法中的四個參數分別表示與儲存格A1的左邊距﹑頂部邊距﹑以及圖表的寬度and高度﹔
Sheet1.ChartObjects.add(10, 249, 400, 160);
sheet1.ChartObjects[charno].Activate;
//激活當前圖表
case chartype of
1: drawtype:=xlLineMarkersStacked; //线图
2: drawtype:=xl3DColumnClustered; //柱图
3: drawtype:=xlPie; //饼图
end;
sheet1.ChartObjects[charno].Chart.charttype:=drawtype;
//指定圖表類型﹕立體叢集直條圖
sheet1.ChartObjects[charno].Chart.seriescollection.ADD[Range2];
//建立新數例
sheet1.ChartObjects[charno].Chart.seriescollection[1].values:=Range2;
//指定新數例值
sheet1.ChartObjects[charno].Chart.seriesCollection[1].hasdatalabels:=True;
//顯示圖表中數列的資料標簽﹔偶只知道抄上面的代码再改改,但具体是什么个意思一点也不明白,那位高人有写出这段代码的说明或帮助文档呀? 发给偶一份好不,分不够可以再加,在下谢过了先!
那位高人知道的话希望指教一下,在下谢过了先!还有这下面这样的代码是从按什么说明写的?
Range1:=sheet1.Range[cell1,cell2];
//設定Chart類別座標軸的取值范圍
Range2:=sheet1.Range[cell3,cell4];
//設定Chart數值座標軸的取值范圍
Range1.Borders.Color:=27;
Range2.Borders.Color:=6;
//向工作表中添加內嵌圖表﹐Add方法中的四個參數分別表示與儲存格A1的左邊距﹑頂部邊距﹑以及圖表的寬度and高度﹔
Sheet1.ChartObjects.add(10, 249, 400, 160);
sheet1.ChartObjects[charno].Activate;
//激活當前圖表
case chartype of
1: drawtype:=xlLineMarkersStacked; //线图
2: drawtype:=xl3DColumnClustered; //柱图
3: drawtype:=xlPie; //饼图
end;
sheet1.ChartObjects[charno].Chart.charttype:=drawtype;
//指定圖表類型﹕立體叢集直條圖
sheet1.ChartObjects[charno].Chart.seriescollection.ADD[Range2];
//建立新數例
sheet1.ChartObjects[charno].Chart.seriescollection[1].values:=Range2;
//指定新數例值
sheet1.ChartObjects[charno].Chart.seriesCollection[1].hasdatalabels:=True;
//顯示圖表中數列的資料標簽﹔偶只知道抄上面的代码再改改,但具体是什么个意思一点也不明白,那位高人有写出这段代码的说明或帮助文档呀? 发给偶一份好不,分不够可以再加,在下谢过了先!
解决方案 »
- dbgrid 单元格取值的问题
- 天热,人心也比较浮。很久不来Csdn感觉大家好像讨论的还是这些问题,我建议大家思考思考。。。。
- 请高手不吝赐教!!!!一个简单的问题(都不好意思问了!)
- 请问如何时时监控windwos应用程序,获取当前所运行的程序的信息
- 如何计算记录类型中的成员个数?
- 窗口最大化时全屏显示?成功实现过的,请进来支招
- 一个数学公式的计算问题?
- 散分,找到一份新工作,要做leader了!!!!
- 对于时间的函数----如何操作
- 各位高手,如何undo在paradox数据库中
- 在数据库中在有若干个字段,如何在TMemo中输出所有字段的字段名、字段类型、字段长度
- 高手指点,如何在DLL中正常使用EXE传递的数据集?
2、在Delphi单元中uses相应的ExcelX(X是指Excel版本,如2000),则VBA脚本中的常量就可正常使用了。