>

>	oChart = oWorkbook.Charts.Add()
>	oChart.ChartWizard(m.oSourceRange,  -4102, 4 , 2, 1, 0, .T., [My Chart Title])
>

>
>Collapse(0) collapses the range to a point at the end of the range. Ah, just looked at the code again. Later on, I delete the bookmark.
>
>Tamar

Thanks I can do that.

How do I define the oSourceRange (I have to admit that I never grokked the Range thing with automation)?

I have data in A1 to D7. I have code like this:

LOCAL loXL AS Excel.APPLICATION
LOCAL loXLWorkbook as EXCEL.Workbook

m.loXL = CREATEOBJECT("Excel.Application")
m.loXLWorkbook = m.loXL.Workbooks.Add()

m.lnRowCount = 0
SCAN
	m.lnRowCount = m.lnRowCount + 1
	m.loXLWorkbook.ActiveSheet
	m.loXLWorkbook.ActiveSheet.Cells[m.lnRowCount,1].VALUE = c_TurnaroundChart.Y
	m.loXLWorkbook.ActiveSheet.Cells[m.lnRowCount,2].VALUE = c_TurnaroundChart.M
	m.loXLWorkbook.ActiveSheet.Cells[m.lnRowCount,3].VALUE = c_TurnaroundChart.TotalReceived
	m.loXLWorkbook.ActiveSheet.Cells[m.lnRowCount,4].VALUE = c_TurnaroundChart.AvgTurnaround
ENDSCAN


m.loChart1 = m.loXLWorkbook.Charts.Add()
				
m.loSourceRange = m.loXLWorkbook.ActiveSheet.Range("A1:D" + transform(m.lnRowCount))
m.loChart1.ChartWizard(m.loSourceRange,  -4102, 4 , 2, 1, 0, .T., [My Chart Title])

I get an OLE error: unknown name on this line:

m.loSourceRange = m.loXLWorkbook.ActiveSheet.Range("A1:D" + transform(m.lnRowCount))

Also, where can I get the parameter values for ChartWizard? The Object Browser only shows three options for the second parameter, none of which are -4102!