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

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

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

How to add xyscatter chart with spreadsheet sdk in VB.NET using ByteScout Data Extraction Suite

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

ByteScout simple and easy to understand tutorials are planned to describe the code for both VB.NET beginners and advanced programmers. ByteScout Data Extraction Suite is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can be applied to add xyscatter chart with spreadsheet sdk using VB.NET.

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 Data Extraction Suite for add xyscatter chart with spreadsheet sdk below and use it in your application. Simply copy and paste in your VB.NET project or application you and then run your app! If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

ByteScout Data Extraction 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