ByteScout Barcode Suite – VB.NET – Add bar chart with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Add bar chart with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Add-bar-chart-with-spreadsheet-sdk.pdf

How to add bar chart with spreadsheet sdk in VB.NET with ByteScout Barcode Suite

Learning is essential in computer world and the tutorial below will demonstrate how to add bar chart with spreadsheet sdk in VB.NET

ByteScout simple and easy to understand tutorials are planned to describe the code for both VB.NET beginners and advanced programmers. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK. It can add bar chart with spreadsheet sdk in VB.NET.

The following code snippet for ByteScout Barcode Suite works best when you need to quickly add bar chart with spreadsheet sdk in your VB.NET application. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Want to see how it works with your data then code testing will allow the function to be tested and work properly.

Trial version of ByteScout Barcode Suite is available for free. Source code samples are included to help you with your VB.NET app.

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 a 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 barChart As Chart = sheet.Charts.AddChartAndFitInto(1, 3, 16, 9, ChartType.BarClustered)
        barChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        barChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1)))

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

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

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

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

        barChart = sheet.Charts.AddChartAndFitInto(17, 17, 32, 23, ChartType.BarStacked1003D)
        barChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        barChart.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