ExcelChartでのグラフ描画

さいとう 2007-03-09 17:53:26 No: 25250 IP: 192.*.*.*

Delphiで、Excelchartを用いてグラフを書きたいのですが
ご存知の方おられないでしょうか。

もともとはVB6のプログラムをDelphi用に書き換えています。
VB6のコードは

Charts.Add
ActiveChart.ChartType = xlXYSchatter
ActiveChart.SetSourceData Source :=xlSheet3.Range(xlSheet3.Cells(2,6),xlSheet3.Cells(1+k,8)), PlotBy := xlColumns

上記のCharts.AddをDelphi上で実行するとExcelシート上にグラフは追加
されますが、データソースの指定が上手くいきません。

開発環境は、Delphi6Pro. WinXP, Excel2000です。
よろしくお願いいたします。

編集削除

さいとう 2007-03-09 19:54:19 No: 25251 IP: 192.*.*.*

LupinⅢさんのExcelクラスも見てみたのですが、グラフの表示形式を
xlXYScatterとし、Range['A1:B10']とするとエラーが出てしまいます。

procedure TForm1.ChartData;
var
  ARange: Variant;
  Sheets: Variant;
begin
  XLApp.Workbooks[1].Sheets.Add(,,1,xlChart);
  Sheets := XLApp.Sheets;
  ARange := Sheets.Item['Delphi Data'].Range['A1:B10'];
  Sheets.Item['Graph1'].SeriesCollection.Item[1].Values := ARange;
  Sheets.Item['Graph1'].ChartType := xlXYScatter;
  Sheets.Item['Graph1'].SeriesCollection.Item[1].HasDataLabels := True;
end;

XY散布図のデータの指定方法がわかりません。
どなたか分かる方おられませんでしょうか？

編集削除

Ru 2007-03-12 17:43:13 No: 25252 IP: 192.*.*.*

実際グラフを作ってみると

［シート名］!$B$3:$O$3

みたいな形式で作成されるみたいなので一度同じような表現にしてみてはいかがでしょうか？

編集削除