#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 WITH ThisForm.Oleboundcontrol1 .ControlSource = "testgen.Genfld1" .hasdatatable = .t. .DataTable.HasBorderOutline = .T. WITH .DataTable.font .name = "Arial" .size = 8 ENDWITH WAIT window nowait "Plotting..." .hastitle = .t. .haslegend = .t. .ChartTitle.caption = "This is chart title" .ChartType=xl3DArea .object.application.plotby = 2 && Plot by columns #DEFINE xlCategory 1 #DEFINE xlValue 2 #DEFINE xlSeriesAxis 3 WITH .Axes(xlCategory) .hastitle = .t. WITH .AxisTitle .Caption = "This is category title" WITH .Font .Name = "Arial" .Size = 10 .Bold = .t. ENDWITH ENDWITH ENDWITH WITH .Axes(xlSeriesAxis) .hastitle = .T. WITH .AxisTitle .Caption = "This is SeriesAxis title" WITH .Font .Size = 8 .Bold = .f. ENDWITH .Orientation = 90 && Show 90 degrees rotated ENDWITH ENDWITH WITH .Axes(xlValue) .hastitle = .T. with .AxisTitle .Caption = "This is Rotated Value title" with .Font .Size = 10 .Bold = .f. endwith .Orientation = 90 && Show 90 degrees rotated - clockwise with .Characters(len("This is R"),len("Rotated")).Font .Italic = .t. .Bold = .t. .Color = rgb(255,0,255) endwith endwith ENDWITH WAIT clear .visible=.T. ENDWITH thisform.refreshHelp file is vbagrp8.hlp in ...\Microsoft Office\Office. Constants are excel constants. If you cannot download wc0993.exe from microsoft site I think it's also here on files section. In any case if you can't access those constants xlConstants can be found by :