hi all,
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