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

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

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

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

Step-by-step tutorial on how to add column chart with spreadsheet sdk in VB.NET

These sample source codes on this page below are displaying how to add column chart with spreadsheet sdk in VB.NET. ByteScout Barcode Suite can add column chart with spreadsheet sdk. It can be applied from VB.NET. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK).

Want to quickly learn? This fast application programming interfaces of ByteScout Barcode Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to add column chart with spreadsheet sdk. Simply copy and paste in your VB.NET project or application you and then run your app! Further improvement of the code will make it more robust.

Our website gives trial version of ByteScout Barcode Suite for free. It also includes documentation and source code samples.

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

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

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

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

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

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

        columnChart = sheet.Charts.AddChartAndFitInto(33, 10, 48, 16, ChartType.Column3D)
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        columnChart.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