ByteScout Spreadsheet SDK – VB.NET – Add XYScatter Chart

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

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

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

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

Learn how to add xyscatter chart in VB.NET with this source code sample. ByteScout Spreadsheet SDK is the SDK to create, read, modify and calculate spreadsheets. Formula calculations are supported, import and export to and from JSON, CSV, XML, databases, arrays. It can be used to add xyscatter chart using VB.NET.

The SDK samples like this one below explain how to quickly make your application do add xyscatter chart in VB.NET with the help of ByteScout Spreadsheet SDK. In your VB.NET project or application you may simply copy & paste the code and then run your app! Implementing VB.NET application typically includes multiple stages of the software development so even if the functionality works please test it with your data and the production environment.

Our website provides trial version of ByteScout Spreadsheet SDK 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


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