ByteScout Spreadsheet SDK – VB.NET – Add Doughnut Chart

Home
/
Articles
/
ByteScout Spreadsheet SDK – VB.NET – Add Doughnut Chart

printable version:
ByteScout-Spreadsheet-SDK-VB-NET-Add-Doughnut-Chart.pdf

How to add doughnut chart in VB.NET with ByteScout Spreadsheet SDK

Write code in VB.NET to add doughnut chart with this step-by-step tutorial

Learn how to add doughnut chart in VB.NET with this source code sample. ByteScout Spreadsheet SDK is the SDK that can write and read, modify and calculate Excel and CSV spreadsheets. Most popular formulas are supported. You may import or export data to and from CSV, XML, JSON as well as to and from databases, arrays. It can be used to add doughnut chart using VB.NET.

Fast application programming interfaces of ByteScout Spreadsheet SDK for VB.NET plus the instruction and the code below will help you quickly learn how to add doughnut chart. Just copy and paste the code into your VB.NET application’s code and follow the instruction. Test VB.NET sample code examples whether they respond your needs and requirements for the project.

Trial version of ByteScout Spreadsheet SDK can be downloaded for free from our website. It also includes source code samples for VB.NET and other programming languages.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      Imports Bytescout.Spreadsheet
Imports Bytescout.Spreadsheet.Charts

Module Module1

    Sub Main()

        ' Create new Spreadsheet object
        Dim spreadsheet As New Spreadsheet()
        spreadsheet.RegistrationName = "demo"
        spreadsheet.RegistrationKey = "demo"

        ' Add new worksheet
        Dim sheet As Worksheet = spreadsheet.Workbook.Worksheets.Add("Sample")

        ' Add few random numbers
        Dim length As Integer = 10
        Dim rnd As New Random()
        For i As Integer = 0 To length - 1
            sheet.Cell(i, 0).Value = rnd.[Next](10)
            sheet.Cell(i, 1).Value = rnd.[Next](10)
        Next

        ' Add charts to worksheet
        Dim doughnutChart As Chart = sheet.Charts.AddChartAndFitInto(12, 1, 35, 9, ChartType.Doughnut)
        doughnutChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        doughnutChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1)))

        doughnutChart = sheet.Charts.AddChartAndFitInto(12, 10, 35, 18, ChartType.DoughnutExploded)
        doughnutChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        doughnutChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1)))

        ' Save it as XLS
        spreadsheet.SaveAs("Output.xls")

        ' Close the document
        spreadsheet.Close()

        ' Cleanup
        spreadsheet.Dispose()

        ' Open generated XLS file in default associated application
        Process.Start("Output.xls")

    End Sub

End Module