>> oChart = oWorkbook.Charts.Add() >> oChart.ChartWizard(m.oSourceRange, -4102, 4 , 2, 1, 0, .T., [My Chart Title]) >>>>
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])>
m.loSourceRange = m.loXLWorkbook.ActiveSheet.Range("A1:D" + transform(m.lnRowCount))>