Grafic EXCEL

oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add()

oSheet = oExcel.ActiveSheet

oSheet.Range("A1").Formula="Oscar"
oSheet.Range("A2").Formula="Maria"
oSheet.Range("A3").Formula="Juan"

oSheet.Range("A4").Formula="Pedro"
oSheet.Range("A5").Formula="Ana"
oSheet.Range("B1").Formula="435"

oSheet.Range("B2").Formula="213"
oSheet.Range("B3").Formula="592"
oSheet.Range("B4").Formula="150"

oSheet.Range("B5").Formula="97"

oChart = oSheet.ChartObjects.Add(150, 10, 200, 200)
oSheet.ChartObjects(1).Chart.ChartWizard(oSheet.range(oSheet.cells(1,1),oSheet.cells(5,2)),;
-4100,4,1,0,1,1,"","","","")


oExcel.Visible= .T.