為Excel動態新增Chart資料

往excel的chart新增資料,資料大都使用range方法,經查msdn,發現也可以使用陣列,實踐了一下:

implementation

uses comobj;

procedure tform1.button1click(sender: tobject);

varv,asheet1,achart,series: variant;

path: string;

i:integer;

arr_a,arr_b: olevariant; //不能使用variant!

//di1.text := format('di_1:%d',[random(110)]);

//di2.text := format('di_2:%d',[random(20)]);

//di3.text := format('di_3:%d',[random(30)]);// dde交換資料

arr_a := vararraycreate([1,30],varvariant);

for i := 1 to 30 do

arr_a[i] := random(50);

arr_b := vararraycreate([1,30],varvariant);

for i := 1 to 30 do

arr_b[i] := 50+random(50);

asheet1:=v.workbooks[1].worksheets[1];

achart := asheet1.chartobjects.add(100,100,500,200);

series:=achart.chart.seriescollection.newseries;

series.values := arr_a;

series.name := 'series a';

series:=achart.chart.seriescollection.newseries;

series.values := arr_b;

series.name := 'series b';

achart.chart.charttype := 4;

achart.chart.hastitle := true;

achart.chart.charttitle.characters.text := 'test example!';

v.visible := true;

end;

為控制項動態新增Style

原文 為控制項動態新增style 此文可解決 重寫控制項時，給控制項加入子控制項或父控制項的樣式切換問題。很靈活的可以根據不同內容顯示不同樣式 子控制項作用在 datatemplate x key colmunheader1 dockpanel background transparent cont...

Excel中通過嚮導方式插入chart

1.插入圖表則主要是操作chartobject物件和chart物件。1 2 3 4 5 6 7 8 9 10 11 12 13 14 workbook wb xla.workbooks.add xlsheettype.xlworksheet worksheet ws worksheet xla.ac...

在Excel中為中文新增拼音

excel 2000 2002 2003中不僅沒有提供 拼音指南 這一工具，而且當希望在同一單元格中同時顯示拼音和中文字元時，只能先輸入拼音，然後按下alt enter鍵接著輸入中文.1 啟用拼音資訊的顯示模式 其實，我們可以利用excel 2000 2002 2003內建的 拼音指南 功能來達到這...