VPF::Создание диаграмм в Excel - Форум программистов

s010m0n

Дата 18.12.2005, 15:22 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 18.12.2005

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

Пишу следующий код:

Код


var vx,ar,ax:variant;
Begin
vx:=CreateOleObject('Excel.Application');
vx.WorkBooks.Open(GetCurrentDir+'\Itogi.xls');
vx.visible:=true;
vx.Workbooks[1].Sheets.Add(,,1,xlChart);
ar:=vx.Workbooks[1].Sheets.Item['Исходные данные'].Range['C8:G8'];
ax:=vx.Workbooks[1].Sheets.Item['Исходные данные'].Range['C1:G1'];
vx.Workbooks[1].ActiveSheet.SeriesCollection.Item[1].Values:=AR;
vx.Workbooks[1].ActiveSheet.SeriesCollection.Item[1].XValues:=AX;
vx.Workbooks[1].ActiveSheet.ChartType:=xl3DPie;
vx.Workbooks[1].ActiveSheet.SeriesCollection.Item[1].HasDataLabels:=True;
vx.Application.quit;
End;

При выполнении создаётся новый лист с полем под диаграмму, но выскакивает ошибка на строку vx.Workbooks[1].ActiveSheet.SeriesCollection.Item[1].Values:=AR; - "Невозможно получить свойство Item класса SeriesCollection". Причём в первый раз это сработало, потом работать отказалось( Стоит офис 2002 SP3. Что это - глюк или я что-то делаю не так?

Это сообщение отредактировал(а) s010m0n - 18.12.2005, 15:24

YurikGL

Дата 18.12.2005, 15:51 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата

vx.Workbooks[1].ActiveSheet.SeriesCollection.Item[1].Values:=AR; - "Невозможно получить свойство Item класса SeriesCollection".

Попробуй
vx.Workbooks[1].ActiveSheet.SeriesCollection[1].Values:=AR; - "Невозможно получить свойство Item класса SeriesCollection".

или
vx.Workbooks[1].ActiveSheet.SeriesCollection.Items[1].Values:=AR; - "Невозможно получить свойство Item класса SeriesCollection".

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

Albinos_x

Дата 18.12.2005, 16:46 (ссылка)

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

Загрузка ...

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;


...

Это сообщение отредактировал(а) Albinos_x - 18.12.2005, 16:54

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

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

ilya198293

Дата 20.8.2007, 18:06 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

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

Когда пишу так

Код


name:=E.Charts.Add.Name;

то диаграмма создаётся, вот только на отдельном листе.
А как создать диаграмму по тексту...чтоб она генерилась на самом рабочем листе?

Добавлено через 2 минуты и 2 секунды
и вариант от <Spawn> тоже что-то не работает...

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

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

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