//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; GrapeCity.Documents.Excel.Drawing.IShape shape = worksheet.Shapes.AddChart(GrapeCity.Documents.Excel.Drawing.ChartType.Radar, 20, 20, 360, 230); worksheet.Range["B20:C20"].Value = new string[,] { { "S1", "S2" } }; worksheet.Range["A21:A25"].Value = new string[,] { { "A" }, { "B" }, { "C" }, { "D" }, { "E" } }; worksheet.Range["B21:C25"].Value = new double[,] { { 10, 25 }, { 51, 36 }, { 52, 85 }, { 22, 65 }, { 23, 69 } }; shape.Chart.SeriesCollection.Add(worksheet.Range["A20:C25"]); // Save to a pdf file workbook.Save("RadarChartPdf.pdf");
' Create a new Workbook Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) Dim shape As IShape = worksheet.Shapes.AddChart(ChartType.Radar, 20, 20, 360, 230) worksheet.Range("B20:C20").Value = { {"S1", "S2"} } worksheet.Range("A21:A25").Value = { {"A"}, {"B"}, {"C"}, {"D"}, {"E"} } worksheet.Range("B21:C25").Value = { {10.0, 25}, {51, 36}, {52, 85}, {22, 65}, {23, 69} } shape.Chart.SeriesCollection.Add(worksheet.Range("A20:C25")) ' save to a pdf file workbook.Save("RadarChartPdf.pdf")