ByteScout Spreadsheet SDK – VB.NET – Add Pie Chart

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

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

How to add pie chart in VB.NET using ByteScout Spreadsheet SDK

Tutorial on how to add pie chart in VB.NET

Every ByteScout tool contains example VB.NET source codes that you can find here or in the folder with installed ByteScout product. Want to add pie chart in your VB.NET app? ByteScout Spreadsheet SDK is designed for it. 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.

The SDK samples like this one below explain how to quickly make your application do add pie chart in VB.NET with the help of ByteScout Spreadsheet SDK. Follow the instructions from the scratch to work and copy the VB.NET code. Further enhancement of the code will make it more vigorous.

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
Imports System.IO

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](1, 10)
        Next

        ' Add charts to worksheet
        Dim pieChart As Chart = sheet.Charts.AddChartAndFitInto(1, 3, 16, 9, ChartType.Pie)
        pieChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))

        pieChart = sheet.Charts.AddChartAndFitInto(1, 10, 16, 16, ChartType.Pie3D)
        pieChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))

        pieChart = sheet.Charts.AddChartAndFitInto(1, 17, 16, 23, ChartType.PieOfPie)
        pieChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))

        pieChart = sheet.Charts.AddChartAndFitInto(17, 3, 32, 9, ChartType.PieExploded)
        pieChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))

        pieChart = sheet.Charts.AddChartAndFitInto(17, 10, 32, 16, ChartType.PieExploded3D)
        pieChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))

        pieChart = sheet.Charts.AddChartAndFitInto(17, 17, 32, 23, ChartType.BarOfPie)
        pieChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))

        ' 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