ByteScout Spreadsheet SDK – VB.NET – Add Bubble Chart

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

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

How to add bubble chart in VB.NET using ByteScout Spreadsheet SDK

This tutorial will show how to add bubble chart in VB.NET

The documentation is designed to help you to implement the features on your side. ByteScout Spreadsheet SDK is the SDK that can write and read, modify and calculate Excel and CSV spreadsheets. Most popular formulas are supported. You may import or export data to and from CSV, XML, JSON as well as to and from databases, arrays. It can be used to add bubble chart using VB.NET.

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 bubble 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. Further enhancement of the code will make it more vigorous.

Free trial version of ByteScout Spreadsheet SDK is available on our website. Documentation and source code samples are included.

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
Imports System.IO


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

        ' Add charts to worksheet
        Dim bubbleChart As Chart = sheet.Charts.AddChartAndFitInto(1, 4, 19, 11, ChartType.Bubble)
        bubbleChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1), sheet.Range(0, 0, length - 1, 0), sheet.Range(0, 2, length - 1, 2)))

        bubbleChart = sheet.Charts.AddChartAndFitInto(1, 12, 19, 19, ChartType.Bubble3DEffect)
        bubbleChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1), sheet.Range(0, 0, length - 1, 0), sheet.Range(0, 2, length - 1, 2)))

        ' 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