Диаграммы в Excel

← →
7th_Angel (2004-04-19 12:12) [0]

Здрассте!
Есть такая проблема: нужно открыть Excel, создать новую книгу, заполнить
лист данными, по которым затем строится диаграмма.
Так вот, получается все кроме последнего, а именно - делаю так:

var ch:variant;
...
ch:=app.Workbooks[1].Worksheets[1];
ch.ChartObjects.add(10,50,400,400);
ch.chartwizard(ch.Range["A1:B2"], xl3DColumn);

На последней строчке возникает исключение, вызванное тем, что метод chartwizard не поддерживается automation object-ом
Может я что-нибуть не правильно делаю, или есть другой способ создания диаграммы?

← →
Думкин © (2004-04-23 08:58) [1]

Add Method (ChartObjects Collection) Example This example creates a new embedded chart. Set co = Sheets("Sheet1").ChartObjects.Add(50, 40, 200, 100) co.Chart.ChartWizard Source:=Worksheets("Sheet1").Range("A1:B2"), _ Gallery:=xlColumn, Format:=6, PlotBy:=xlColumns, _ CategoryLabels:=1, SeriesLabels:=0, HasLegend:=1

← →
Slick (2004-04-23 12:05) [2]

exOLE: Variant;

exOLE :=CreateOleObject("Excel.Application");
exOLE.WorkBooks.Add(xlWBATworksheet); // Add workbook
// Данные
…
// Диаграмма
exOLE.Charts.Add; // Add diagramm
exOLE.ActiveChart.ChartType := xl3DPie; // Type diagramm
exOLE.ActiveChart.SetSourceData(R.range[A1:B?], xlColumns);

Константы Excel в Excel2000.pas (..\Ocx\Servers)

Диаграммы в Excel Найти похожие ветки