ByteScout Spreadsheet SDK – VB.NET – Add Line Chart

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

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

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

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

With this source code sample you may quickly learn how to add line chart in VB.NET. ByteScout Spreadsheet SDK is the SDK component for writing, reading, modifying and calculating Excel and CSV spreadsheets. Can calculate and reculculate formulas with Excel installed. You may import or export data to and from CSV, XML, JSON. Supports export to databases, arrays, streams. It can add line chart in VB.NET.

You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Spreadsheet SDK for add line chart below and use it in your application. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! You can use these VB.NET sample examples in one or many applications.

Free trial version of ByteScout Spreadsheet SDK is available on our website. Documentation and source code samples are included.

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