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

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

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

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

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

An easy to understand guide on how to add radar chart with spreadsheet sdk in VB.NET with this source code sample. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK). It can be applied to add radar chart with spreadsheet sdk using VB.NET.

The following code snippet for ByteScout Barcode Suite works best when you need to quickly add radar chart with spreadsheet sdk in your VB.NET application. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Check VB.NET sample code samples to see if they respond to your needs and requirements for the project.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

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