全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3385
推到 Plurk!
推到 Facebook!

如何利用BCB在EXCEL中產生有多條SERIES的圖表?

尚未結案
raychinchi
一般會員


發表:1
回覆:0
積分:0
註冊:2009-11-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-02-24 15:58:55 IP:210.64.xxx.xxx 訂閱
首先謝謝版上的眾多文章讓我學習到如何用BCB來產生
EXCEL檔並在其中多個SHEET中給定資料並產生圖表。

但是我現在有一個問題

因為我的CHART圖中想要利用XY散佈圖產生兩條SERIES
但是版上的文章幾乎都是利用
Range=Worksheet.OlePropertyGet("Range",Worksheet.OlePropertyGet"Cells",3,2),Worksheet.OlePropertyGet"Cells",50,3));
Chart.OleProcedure("SetSourceData",Range,xlColumns);

SetSourceData 來產生。

可是這樣只能產生出一條數列。
假如我還想要在同一個圖表中,產生第二條數列的話,該怎麼寫呢?? 謝謝

PS. 我有用錄製巨集方式觀察EXCEL的做法

Range("B3:C50").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Sheet10!$B$3:$C$50")
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "=Sheet10!$G$3:$G$50"
ActiveChart.SeriesCollection(2).Values = "=Sheet10!$H$3:$H$50"

可是
我改寫成
Chart.OleProcedure("SeriesCollection","NewSeries");
Chart.OleProcedure("SeriesCollection",2,"XValues","=Sheet10!$G$3:$G$18");
Chart.OleProcedure("SeriesCollection",2,"Values","=Sheet10!$H$3:$H$20");

是可以Compile 過,但是執行是失敗的,有人有比較確切的方法嗎?? 謝謝
jacklee_47pn
一般會員


發表:0
回覆:1
積分:0
註冊:2010-10-20

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-10-20 13:06:43 IP:210.68.xxx.xxx 訂閱
下面是我的使用的副程式,僅供參考。


//***************************************************************************
void __fastcall TForm1::DataRange(int xx,int yy,int n)
{
char tt[MessageLen];
if(n==1){
RANGE=WORKsheet.OlePropertyGet("Range"
,WORKsheet.OlePropertyGet("Cells",xx,4),WORKsheet.OlePropertyGet("Cells",xx yy-1,4) );
CHART.OleProcedure("SetSourceData",RANGE,xlColumns);
}
else{
CHART.OlePropertyGet("SeriesCollection").OleFunction("NewSeries");
sprintf(tt,"=Sheet1!RÜ4:RÜ4",xx,xx yy-1);
CHART.OlePropertyGet("SeriesCollection",n).OlePropertySet("Values",tt);
}
sprintf(tt,"=Sheet1!RÜ1",xx);
CHART.OlePropertyGet("SeriesCollection",n).OlePropertySet("Name",tt);
if(n==1){
sprintf(tt,"=Sheet1!RÜ2:RÜ2",xx,xx yy-1);
CHART.OlePropertyGet("SeriesCollection",1).OlePropertySet("XValues",tt);
}
}
//***************************************************************************

系統時間:2024-03-29 3:08:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!