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

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

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

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

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

The sample source code below will teach you how to add bubble chart with spreadsheet sdk in VB.NET. ByteScout Data Extraction Suite can add bubble chart with spreadsheet sdk. It can be applied from VB.NET. 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.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Data Extraction Suite. Simply copy and paste in your VB.NET project or application you and then run your app! Use of ByteScout Data Extraction Suite in VB.NET is also described in the documentation included along with the product.

You can download free trial version of ByteScout Data Extraction Suite from our website with this and 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
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