ByteScout Spreadsheet SDK – VB.NET – Add Radar Chart

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

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

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

Write code in VB.NET to add radar chart with this step-by-step tutorial

ByteScout tutorials are designed to explain the code for both VB.NET beginners and advanced programmers. ByteScout Spreadsheet SDK can add radar chart. It can be used from VB.NET. 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.

This rich sample source code in VB.NET for ByteScout Spreadsheet SDK includes the number of functions and options you should do calling the API to add radar chart. In order to implement the functionality, you should copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Detailed tutorials and documentation are available along with installed ByteScout Spreadsheet SDK if you’d like to dive deeper into the topic and the details of the API.

Free trial version of ByteScout Spreadsheet SDK is available for download from our website. Get it to try other 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

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

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

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

        radarChart = sheet.Charts.AddChartAndFitInto(1, 17, 16, 23, ChartType.RadarFilled)
        radarChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        radarChart.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