>>> 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))>>