Grafikonok létrehozása, típusaik

Készítünk egy példaprogramot, amely a háttérben megnyitja az Excel-t. Néhány cellát feltölt véletlen számokkal, majd ebből grafikont készít. A grafikont, vágólapon keresztül átmásoljuk a Delphi alkalmazásunkba, és ott jelenítjük meg.

Az Excel programhoz és objektumaihoz OleVariant típusú objektumok segítségével kapcsolódhatunk. Az OleVariant típus használatához a uses listában fel kell sorolnunk a ComObj unit nevét is.

Első lépésben elindítjuk a háttérben az Excel programot és létrehozunk egy új munkafüzetet.

ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Workbooks.Add;

Hogy diagramot tudjunk készíteni, feltöltünk néhány cellát, véletlen számokkal. Létrehozunk egy kis táblázatot, amely A, B és C oszlopokkal, valamint 5 sorral rendelkezik. Egy cellának a Range objektum segítségével adhatunk értéket.

ExcelApp.Range[Col+'1',Col+'1'].Value:=Chr(64+x);

Ha elkészült a táblázat, akkor már van miből grafikont készítenünk. Először ki kell jelölnünk azt a tartományt, amelyből a grafikon készül. Ehhez szintén a Range objektumot használjuk.

ExcelApp.Range['A1','D6'].Select;

Egy teljes grafikont a Chart objektum képvisel. Az alábbi kóddal létrehozunk egy új diagramot, amelyet elmentünk a MyChart változóba.

MyChart:=ExcelApp.ActiveWorkbook.Charts.Add;

Eddig csak azt adtuk meg az Excel-nek, hogy készítsen egy grafikont, de azt nem adtuk meg, hogy milyet. Ilyenkor automatikusan egy oszlop diagram jön létre, mégpedig a csoportosított oszlop névre hallgató változat.

A Chart objektum ChartType tulajdonságán keresztül lekérdezhetjük egy grafikon típusát, vagy akár módosíthatjuk is azt. Módosítsuk a grafikon típusát 3D-s oszlopdiagramra, kúpos formával.

MyChart.ChartType:=xlConeCol;

Ezzel a háttérben el is készült a grafikon, azonban mi, mint felhasználók, az egészből még semmit nem láttunk.

A Chart objektum rendelkezik egy metódussal, amely segítségével a teljes grafikont kimásolhatjuk a vágólapra. Ez a metódus, a CopyPicture.

MyChart.CopyPicture;

A vágólapon lévő képet már könnyedén fel tudjuk használni egy Delphi alkalmazásban.

Image1.Picture.Assign(Clipboard);

Mielőtt a fenti kódot használnánk, az Image komponens Stretch tulajdonságát állítsuk igazra.

Nem maradt más hátra, mint hogy a háttérben futó Excel programot bezárjuk.

ExcelApp.ActiveWorkbook.Close(False);
ExcelApp.Quit;

Használható grafikon típusok

Az Excelben sokféle grafikon létezik. Minden egyes grafikonhoz a rendszerben egy konstans név van rendelve, ha ezeket fel akarjuk használni, ismernünk kell a konstansok neveit és értékeit, valamint hogy melyik mit takar. Az alábbi táblázat ebben segít eligazodni. Az itt szereplő konstans nevek megtalálhatóak a Delphi-hez mellékelt Excel*.pas állományban. Az állomány alapértelmezett helye a Delphi*\Ocx\Servers könyvtár.