That's interesting! That does not work in my live code. I get an error:

OLE IDispatch exception code 0 from Microsoft Excel: Unable to set the Height property of the Application class.

but it works in the sample.

Aaargh, this stuff can be so frustrating at times!

>

>loXL.Height = loXL.Height * 1.2
>loXL.Width = loXL.Width * 1.2
>

>
>>Here's the sample code:
>>
>>

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

>>
>>The code would never go into the FOR loop.