ox = CREATEOBJECT('excel.application')
#DEFINE xl3DArea -4098
#DEFINE xl3DColumn -4100
#DEFINE xl3DLine -4101
#DEFINE xl3DPie -4102
#DEFINE xlArea 1
#DEFINE xlBubble3DEffect 87
#DEFINE xlLine 4
#DEFINE xlPie 5
#DEFINE xlRadar -4151
#DEFINE xlSurface 83
#DEFINE xlStackedColumn 52
WITH ox.activeworkbook.worksheets(1)
.ChartObjects.ADD(48,800,150,100)
.ChartObjects(2).Chart.Chartwizard(.RANGE(.cells(12,7),.cells(23,8)),xl3DColumn,4,1,0,1,1,"","","","")
WITH .ChartObjects(2).Chart
.hastitle = .T.
.haslegend = .T.
.ChartTitle.CAPTION = "Weekday"
.ChartTitle.FONT.Underline = .T.
.ChartType = xlStackedColumn && Set a charttype
.plotby = 2 && Plot by 2 - columns
ENDWITH
ENDWITH
Hope this helps,
Add a chart object, create it with a wizard then fiddle around with it to you hearts conetent.
If only everything in life was as reliable as VFP