Привет всем 8)
Помогите пожалуйста разобраться с диаграммами в excell.
Я без проблемм делал отчёты в Excell и Word, но когда дело дошло до диаграмм, то что-то дело остановилось... нормальной инфы не нашёл.
Принцип такой — нужно создать документ по шаблону, поместить в ячейки свои данные (пока всё просто), и теперь у имеющихся в шаблоне диаграмм необходимо установить диапазоны данных, и вот это у меня не получается.
Charts.count вообще выдаёт 0.
Может у когонибудь есть ссылка на статью, по данному вопросу?

Простейший ример кода:

  vals:=VarArrayCreate([0,10,0,0],varInteger);
  for i:=0 to 10 do
    begin
      vals[i,0]:=i*2;
    end;
  Excell:=CreateOleObject('Excel.Application');
  Excell.Workbooks.Add('E:\Книга2.xlt');
  Excell.Range['A5','A15']:=vals;
  //тут нужно задать диапазон для имеющейся в шаблоне диаграммы
  Excell.visible:=true;
  Excell:= UnAssigned;

Здравствуйте, eugene7, Вы писали:

E>Привет всем 8)
E>Помогите пожалуйста разобраться с диаграммами в excell.
E>Я без проблемм делал отчёты в Excell и Word, но когда дело дошло до диаграмм, то что-то дело остановилось... нормальной инфы не нашёл.
E>Принцип такой — нужно создать документ по шаблону, поместить в ячейки свои данные (пока всё просто), и теперь у имеющихся в шаблоне диаграмм необходимо установить диапазоны данных, и вот это у меня не получается.
E>Charts.count вообще выдаёт 0.
E>Может у когонибудь есть ссылка на статью, по данному вопросу?

E>Простейший ример кода:

E>

E>  vals:=VarArrayCreate([0,10,0,0],varInteger);
E>  for i:=0 to 10 do
E>    begin
E>      vals[i,0]:=i*2;
E>    end;
E>  Excell:=CreateOleObject('Excel.Application');
E>  Excell.Workbooks.Add('E:\Книга2.xlt');
E>  Excell.Range['A5','A15']:=vals;
E>  //тут нужно задать диапазон для имеющейся в шаблоне диаграммы
E>  Excell.visible:=true;
E>  Excell:= UnAssigned;
E>

Открой Excel, сделай все действия, какие нужны. Только запиши все это в макрос (Макрос\начать запись...). Посмотри исходники макроса. Переделать исходники из VB на Delphi элементарно