.ChartType = 0 && VtChChartType3dBar .ChartType = 1 && VtChChartType2dBar .ChartType = 2 && VtChChartType3dLine .ChartType = 3 && VtChChartType2dLine .ChartType = 4 && VtChChartType3dArea .ChartType = 5 && VtChChartType2dArea .ChartType = 6 && VtChChartType3dStep .ChartType = 7 && VtChChartType2dStep .ChartType = 8 && VtChChartType3dCombination .ChartType = 9 && VtChChartType2dCombination .ChartType = 14 && VtChChartType2dPie .ChartType = 16 && VtChChartType2dXYAnd here is sample, which I have adopted to VFP from the original VB code
LOCAL lnColumn, lnRow, lnIndex1, lnIndex2, lnIndex3, lnIndex4 With This * Displays a 3d chart with 8 columns and 8 rows * data. .ChartType = 0 && VtChChartType3dBar - this will make a 3D Bar chart .ColumnCount = 8 && This could be AFIELDS(laFieldsArray) of a cursor(table) .RowCount = 8 && This could be RecCount() of a cursor(table) For lnRow = 1 To 8 && This could be a Scan of the Cursor For lnColumn = 1 To 8 && This could be For lnColumn = 1 to ALEN(laFieldsArray, 1) .Column = lnColumn .Row = lnRow .Data = lnRow * 10 &&Or something else e.g. EVALUATE(laFieldsArray(lnColumn, 1)) EndFor EndFor * Use the chart as the backdrop of the legend. lnIndex1 = 0 lnIndex2 = 0 lnIndex3 = 0 lnIndex4 = 0 .ShowLegend = .T. .SelectPart(4, lnIndex1, lnIndex2, lnIndex3, lnIndex4) && VtChPartTypePlot .EditCopy .SelectPart(3, lnIndex1, lnIndex2, lnIndex3, lnIndex4) && VtChPartTypeLegend .EditPaste EndWithThe other stuff I think it is your job - explore, invite, belive yourself!
Make solutions, not programs!