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

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

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

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

This code in VB.NET shows how to add line chart with spreadsheet sdk with this how to tutorial

Every ByteScout tool includes simple example VB.NET source codes that you can get here or in the folder with installed ByteScout product. 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 be applied to add line chart with spreadsheet sdk using VB.NET.

The SDK samples given below describe how to quickly make your application do add line chart with spreadsheet sdk in VB.NET with the help of ByteScout Barcode Suite. Follow the instructions from scratch to work and copy the VB.NET code. This basic programming language sample code for VB.NET will do the whole work for you to add line chart with spreadsheet sdk.

You can download free trial version of ByteScout Barcode Suite from our website to see and try many others source code samples for VB.NET.

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](10)
            sheet.Cell(i, 1).Value = rnd.[Next](10)
        Next

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

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

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

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

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

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

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