VPF::строим график! - Форум программистов

CompWorm

Дата 2.8.2006, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: нет
Всего: 31

и так, есть данные в массиве.
их, к примеру, можно зипихнуть в один из цтолбиков Excell
Далее хотелось бы график... smile

Такой график, положим, есть в программе - компонента TChart
можно ли его экспортировать его в Excell или Word?
и если нет, то как его построить хотя бы в Excell? smile

Буду рад выслушать любые предложения.

Добавлено @ 21:45
мозно ли например сохранить Чарт как картинку, чтобы потом его подгрузить в Excell / Word smile

--------------------

>>> Indie Games Club! <<<

Albinos_x

Дата 2.8.2006, 23:54 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Код

...
Chart1.SaveToBitmapFile(FileName);
...

как вставить картинку в статье есть...

....
как сделать в Excel не скажу, т.к. пока сам не разбирался smile

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

CompWorm

Дата 3.8.2006, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: нет
Всего: 31

большое спсибо!
пока сделаю так.
сейчас пытаюсь нарыть в инете что нибудь по этой теме.
пока не очень.
если найду - выложу.
Не найду - будем ждать пока на форум не заглянет гуру.

--------------------

>>> Indie Games Club! <<<

Albinos_x

Дата 3.8.2006, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

автор не я (а из статьи в интернете), к сожалению автора забыл как величают:

Код


...    
Function AddChart(var name:string;    
  ChartType:integer):boolean;    
begin    
 AddChart:=true;    
 try    
  name:=E.Charts.Add.Name;    
  E.Charts.Item[name].ChartType:=ChartType;    
 except    
  AddChart:=false;    
 end;    
End;    
//Область данных диаграммы    
Function SetSourceData(Name,Sheet:variant;    
  Range:string;XlRowCol:integer):boolean;    
begin    
 SetSourceData:=true;    
 try    
  E.ActiveWorkbook.Charts.Item[name].SetSourceData    
   (Source:=E.ActiveWorkbook.Sheets.Item [Sheet].Range[Range].PlotBy:=XlRowCol);    
 except    
  SetSourceData:=false;    
 end;    
End;    
Function SeriesCount (Name:variant):integer;    
begin    
 SeriesCount:=-1;    
 try    
  SeriesCount:=E.Charts.Item[name].SeriesCollection.Count;    
 except    
  SeriesCount:=-1;    
 end;    
End;    
...

Добавлено @ 00:24
а вот пример от <Spawn>
http://forum.vingrad.ru/index.php?showtopi...p;#038;hl=chart

Код


var    
  Excel, WorkBook, WorkSheet, ChartObject, Rng: OleVariant;    
  RangeStr: WideString;    
begin    
  Excel := CreateOleObject('Excel.Application');    
  try    
    WorkBook := Excel.WorkBooks.Add;    
    WorkSheet := WorkBook.WorkSheets.Add;    
    WorkSheet.Cells[1, 1] := 'Axis 1 Name';    
    WorkSheet.Cells[2, 1] := 'Axis 2 Name';    
    WorkSheet.Cells[1, 2] := 12;    
    WorkSheet.Cells[2, 2] := 15;    
    ChartObject := WorkSheet.ChartObjects.Add(100, 100, 400, 400);    
    RangeStr := 'B1..B2';    
    Rng := WorkSheet.Range[RangeStr];    
    ChartObject.Chart.ChartWizard(Rng, 2);    
    ChartObject.Chart.HasTitle := True;    
    ChartObject.Chart.ChartTitle.Text := 'Test Chart';    
    ChartObject.Chart.Axes(1).HasTitle := True;    
    ChartObject.Chart.Axes(1).AxisTitle.Text := 'Axis Text';    
    RangeStr := 'A1..A2';    
    Rng := WorkSheet.Range[RangeStr];    
    ChartObject.Chart.Axes(1).CategoryNames := Rng;    
    Excel.Visible := True;    
  finally    
    Excel := Unassigned;    
  end;

Добавлено @ 00:26
по аналогии можно сделать и с ExcelWorksheet1...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

CompWorm

Дата 3.8.2006, 01:36 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: нет
Всего: 31

такой ответ меня бодрит! smile

--------------------

>>> Indie Games Club! <<<

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »