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

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

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

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

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

Add xyscatter chart with spreadsheet sdk is simple to apply in VB.NET if you use these source codes below. ByteScout Barcode Suite can add xyscatter chart with spreadsheet sdk. It can be applied from VB.NET. 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.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Barcode Suite for add xyscatter chart with spreadsheet sdk below and use it in your application. Follow the instructions from scratch to work and copy the VB.NET code. Check VB.NET sample code samples to see if they respond to your needs and requirements for the project.

ByteScout Barcode Suite free trial version is available on our website. VB.NET and other programming languages are supported.

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


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

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

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

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

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

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

        ' Save it as XLS
        spreadsheet.SaveAs("Output.xls")

        ' Close the document
        spreadsheet.Close()

        ' Open generated XLS file in default associated application
        Process.Start("Output.xls")

    End Sub

End Module