[Zhigalov]

Вот вроде нащел код. Но какой тут надо использовать модуль не как скомпилится не могу.

Код:

procedure TForm1.Button25Click(Sender: TObject);
 var a_:integer;
   rng_:string;
begin
AddChart(ChartName,xl3DColumn);
SetSourceData(1{ChartName},2,'A1:F6',xlRows);
//заполняем данными
randomize;
SetRange(2,'A1','AAAA');
SetRange(2,'B1','BBBB');
SetRange(2,'C1','CCCC');
SetRange(2,'D1','AAAA');
SetRange(2,'E1','BBBB');
SetRange(2,'F1','CCCC');
for a_:=2 to 5 do begin
    SetRange(2,'A'+inttostr(a_),a_-1);
    SetRange(2,'B'+inttostr(a_),random(1000));
    SetRange(2,'C'+inttostr(a_),random(1000));
    SetRange(2,'D'+inttostr(a_),random(1000));
    SetRange(2,'E'+inttostr(a_),random(1000));
    SetRange(2,'F'+inttostr(a_),random(1000));
    end;
TextChartTitle(ChartName,'Заголовок Диаграммы');
PositionChartTitle(ChartName,1,1);  //координаты заголовка
BorderChartTitle(ChartName,RGB(100,150,245),1,1); //рамка заголовка
BrushChartTitle(ChartName,RGB(100,120,210),1,rgb(45,120,170)); //цвет заголовка
PositionPlotArea(ChartName,1,1,200,200); //координаты области
SetChartLocation(ChartName,'Новый лист',xlLocationAsNewSheet); // размещение диаграммы. Вместо 'Новый лист' поставь или название своего листа, или его номер!
end;