>loXL.Height = loXL.Height * 1.2 >loXL.Width = loXL.Width * 1.2 >>
LOCAL loxl as EXCEL.Application >> >>m.loxl = CREATEOBJECT("Excel.application") >>m.loXLWorkbook = m.loxl.Workbooks.Add() >>m.loxl.Visible = .t. >> >>m.loXL.ActiveSheet.Cells[1,1].VALUE = "Month" >>m.loXL.ActiveSheet.Cells[2,1].VALUE = "Jan" >>m.loXL.ActiveSheet.Cells[3,1].VALUE = "Feb" >>m.loXL.ActiveSheet.Cells[4,1].VALUE = "Mar" >>m.loXL.ActiveSheet.Cells[5,1].VALUE = "Apr" >>m.loXL.ActiveSheet.Cells[6,1].VALUE = "May" >> >>m.loXL.ActiveSheet.Cells[1,2].VALUE = "Claims" >>m.loXL.ActiveSheet.Cells[1,3].VALUE = "Turnaround" >> >>FOR i = 2 TO 6 >> m.loXL.ActiveSheet.Cells[m.i,2].VALUE = m.i * 10 >> m.loXL.ActiveSheet.Cells[m.i,3].VALUE = m.i - 1 >>ENDFOR >>m.loSourceRange = m.loXL.Range("A1:C6") >>m.loSourceRange.Select() >> >>xlBuiltIn = 21 >>xlColumns = 2 >>xlLocationAsObject = 2 >>xlCategory = 1 >>xlPrimary = 1 >>xlValue = 2 >>xlSecondary = 2 >>xlUp = -4162 >>xl3DPie = -4102 >>xlLineMarkers = 65 >>xlLocationAsNewSheet = 1 >> >>m.loChart = m.loXLWorkbook.Charts.Add() >> >> >>*!* m.loChart.ChartWizard(m.loSourceRange, -4102, 4 , 2, 1, 0, .T., [Claims Received/Turnaround]) >>m.loChart.ApplyCustomType(xlBuiltIn, "Lines on 2 Axes") >>m.loChart.HasTitle = .t. >>m.loChart.ChartTitle.Characters.Text = "Claims Received/Turnaround" >>m.loChart.Axes(xlCategory, xlPrimary).HasTitle = .T. >>m.loChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Month" >>m.loChart.Axes(xlValue, xlPrimary).HasTitle = .T. >>m.loChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Claims Received" >>m.loChart.Axes(xlCategory, xlSecondary).HasTitle = .T. >>m.loChart.Axes(xlCategory, xlSecondary).AxisTitle.Characters.Text = "" >>m.loChart.Axes(xlValue, xlSecondary).HasTitle = .T. >>m.loChart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Avg. Turnaround" >> >>With m.loChart.Axes(xlCategory) >> .HasMajorGridlines = .F. >> .HasMinorGridlines = .F. >>EndWith >>With m.loChart.Axes(xlValue) >> .HasMajorGridlines = .T. >> .HasMinorGridlines = .F. >>ENDWITH >>FOR j = 1 TO m.loXL.ActiveSheet.Shapes.Count >> If m.loXL.ActiveSheet.Shapes(j).Type = msoChart Then >> m.loXL.ActiveSheet.Shapes(j).Width = 4 * 72 >> m.loXL.ActiveSheet.Shapes(j).Height = 3 * 72 >> EndIf >>ENDFOR >>m.loChart.Location(xlLocationAsNewSheet) >>m.loXL.Visible = .T. >>>>