Delphi - Grafikon készítés Excel-ben Delphi-s alkalmazásból

Office 11. rész

forráskód letöltése
Elérkeztünk az Excel programozásának azon témájához, ami nem más, mint a grafikon készítés. A mellékelt példában egy véletlenszerű adatokkal feltöltött táblázatból készítünk 3D oszlopdiagramot. Minden diagramm illetve grafikon alapja egy valamilyen módon rendezett számhalmaz. A mellékelt példában mi egy olyan táblázatot készítettünk el, amelyet véletlenszerűen kitöltünk számokkal, majd az elkészült táblázatot megjelenítjük egy 3D oszlopdiagram formájában.

Első lépésben tehát fel kell töltenünk a táblázatunkat adatokkal. Ha ez megvan, akkor a grafikonban megjeleníteni kívánt adatokat tartalmazó cellákat kijelöljük az alábbi módon:
ExcelApp.Range['B2','F11'].Select;
Ezután hozzáadunk a dokumentumunkhoz egy új diagramm lapot, a Charts osztály Add függvényével.
MyChart:=ExcelApp.ActiveWorkbook.Charts.Add;
Lehetséges paraméterei:
  • Before: az a munkalap, ami elé a diagrammot be szeretnénk szúrni.
  • After: az a munkalap, ami után a munkalapot be szeretnénk szúrni.
  • Count: a létrehozandó munkalapok száma (alapesetben 1).
  • Type: XlSheetType típusú konstans érték: xlWorksheet, xlChart, xlExcel4MacroSheet, vagy xlExcel4IntlMacroSheet.
var
  MyChart:OleVariant;
…
MyChart:=ExcelApp.ActiveWorkbook.Charts.Add;
MyChart.ChartType:=xl3DColumn;
A ChartType property-vel állíthatjuk be a diagram típusát.

Office cikksorozat