| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Диаграммы в Excel [Delphi, Windows]
7th_Angel © (2004-04-19 12:12:00)Здрассте!
Есть такая проблема: нужно открыть 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-ом
Может я что-нибуть не правильно делаю, или есть другой способ создания диаграммы?
Slick (2004-04-23 12:05:00) [1]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)
Думкин (2004-04-23 08:58:00) [2]
Add Method (ChartObjects Collection) Example
This example creates a new embedded chart.
Set co = Sheets("Sheet1").ChartObjects.Add(50, 40, 200, 100)
co.Chart.ChartWizardSource:=Worksheets("Sheet1").Range("A1:B2"), _
Gallery:=xlColumn, Format:=6, PlotBy:=xlColumns, _
CategoryLabels:=1, SeriesLabels:=0, HasLegend:=1
| |
