//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.Pie, 20, 20, 360, 230); worksheet.Range["A20:B23"].Value = new object[,] { { "Blue", 1 }, { "Red", 2 }, { "Green", 3 }, { "Purple", 4 }, }; shape.Chart.SeriesCollection.Add(worksheet.Range["A20:B23"], GrapeCity.Documents.Excel.Drawing.RowCol.Columns); shape.Chart.ChartTitle.Text = "Pie Chart"; shape.Chart.Legend.Position = GrapeCity.Documents.Excel.Drawing.LegendPosition.Right; // Save to a pdf file workbook.Save("PieChartPdf.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.Pie, 20, 20, 360, 230) worksheet.Range("A20:B23").Value = New Object(,) { {"Blue", 1}, {"Red", 2}, {"Green", 3}, {"Purple", 4} } With shape.Chart .SeriesCollection.Add(worksheet.Range("A20:B23"), RowCol.Columns) .ChartTitle.Text = "Pie Chart" .Legend.Position = LegendPosition.Right End With ' save to a pdf file workbook.Save("PieChartPdf.pdf")