Скачать: CL | DM;

Диаграмма в Excel   Найти похожие ветки 

← →
alenka   (2003-07-24 13:04) [0]

Подскажите, пожалуйста. Пытаюсь добавить диаграмму в Excel.
ExcelApplication1.ActiveWorkbook.Charts.Add()
Какие параметры сюда передаются?

---

← →
Alex_x ©   (2003-07-24 17:51) [1]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, comOBJ, excel2000;

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,WorkSheets,Sheet2,Ch:variant;
Sheet,SeriesCollection:Variant;
vrange:variant;
i,j:integer;
begin
Excel:=CreateOleObject("Excel.Application");
Excel.Visible:=True;
WorkBook:=Excel.Workbooks.Add
Ch:=WorkBook.Charts.Add;
Ch.ChartType := xlLineMarkers;
ch.HasDataTable := True;
vrange:=Excel.WorkBooks[1].WorkSheets[1].range["A1:C3"];
SeriesCollection:=Ch.SeriesCollection;
SeriesCollection.Add(vrange);
ch.PlotBy:=xlColumns;
ch.HasTitle:= True;
ch.ChartTitle.text := "Excel";
ch.ChartArea.Font.Size := 8;
Excel:=UnAssigned;
end;


end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c