Check FoxCharts

>i need help for 4 qustions
>
>1-i need to convert chart from column type to pie type.
>
>2-is there away to save it or convert from excel to word.doc
>
>3-i need to incloude this code below to get record by record where no=no
>

>lnMax = 22
>FOR i=1 TO lnMax
>   USE IN ( SELECT("Temp") )
>   SELECT * FROM mycur WHERE no=i  INTO CURSOR Temp
>   COPY TO ('c:\dept\amman\')+ ("sheet" + TRANSFORM(i)) TYPE XL5
>ENDFOR
>USE IN ( SELECT("Temp") )
>

>
>
>4-i need to chart only fields a,b ,c ,d,e series1
>f,g ,h ,i,j series2 and keep another fields at the same sheet
>

>
>SELECT  1 as orderby__, no,  a,b ,c ,d,e;
>   FROM mytable2  ;
> union ;
> SELECT  2as orderby__, no, f,g,h,i,j;
>  FROM mytable2 ;
> union ;
> SELECT  3as orderby__, no,0,0,0,0, K ;
>  FROM mytable2 ;
> union ;
> SELECT  4 as orderby__, no,0,0,0,0, L ;
>  FROM mytable2 ;
> union ;
> SELECT  5 as orderby__, no,0,0,0,0, M ;
>  FROM mytable2 ;
> INTO CURSOR mycur  READWRITE  ORDER BY no
> 
> Copy To array aMyData
>
>Local objExcel
>objExcel = CREATEOBJECT("Excel.Application")
>objExcel.Workbooks.add()
>objExcel.visible=.t.
>
>WITH objExcel.ActiveSheet
>	Local loRange
>loRange = .Range( .Cells(1,1), .Cells(ALEN(aMyData,1),ALEN(aMyData,2)))
>	loRange.Value = getArrayRef('aMyData')
>	
>	* Add a ChartObject to the worksheet:
>	=.ChartObjects.Add(100, 100, 200, 200)
>	.ChartObjects(1).chart.haslegend = .t.
>	.chartobjects(1).chart.;
>		chartwizard(loRange,;
>			-4100,4,2,2,1,1,"Title","Wave","T,%","")
>
>
>ENDWITH
>
>Procedure GetArrayRef(tcArrayName)
>Return @&tcArrayName
>

>thanks