Дароф...
подскажите что делаю не так. вот есть код
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Excel, WorkBook, Sheet1, Sheet2, Chart:variant;
Sheet, SeriesCollection:Variant;
vrange:variant;
i, j:integer;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.Visible:=True;
Excel.SheetsInNewWorkbook := 1;
WorkBook:=Excel.Workbooks.Add;
Sheet1:=WorkBook.WorkSheets[1];
// Sheet2:=WorkBook.WorkSheets[2];
Chart:=WorkBook.Charts.Add;
Sheet1.Name:='Table 1';
// Sheet2.Name:='Table 2';
// for j:=1 to 2 do
Sheet:=WorkBook.WorkSheets[1];
for i:=1 to 2 do
begin
Sheet.Cells.Item[i,1].Value:='Name'+IntToStr(i);
Sheet.Cells.Item[i,2].Value:=Random(1000);
end;
// vrange:=Sheet1.range['A1:A2'];
vrange:=Sheet1.range['A1:B2'];
SeriesCollection:=Chart.SeriesCollection;
SeriesCollection.Add(vrange);
// vrange:=Sheet1.Range['B1:B2'];
SeriesCollection.Add(vrange);
Excel:=UnAssigned;
end;
end.
|
получается не такая диаграмма как должна быть...
как сделать диаграмму как в прикрепленном файле?
Сенкс
|
