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

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

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

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

Learn to code in VB.NET to add column chart with spreadsheet sdk with this step-by-step tutorial

The code displayed below will guide you to install an VB.NET app to add column chart with spreadsheet sdk. Want to add column chart with spreadsheet sdk in your VB.NET app? ByteScout Data Extraction Suite is designed for it. 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.

The following code snippet for ByteScout Data Extraction Suite works best when you need to quickly add column 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. Complete and detailed tutorials and documentation are available along with installed ByteScout Data Extraction Suite if you’d like to learn more about the topic and the details of the API.

Our website gives trial version of ByteScout Data Extraction Suite 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
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 a 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)
        Next

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

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

        columnChart = sheet.Charts.AddChartAndFitInto(1, 17, 16, 23, ChartType.ColumnStacked100)
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1)))

        columnChart = sheet.Charts.AddChartAndFitInto(17, 3, 32, 9, ChartType.ColumnClustered3D)
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1)))

        columnChart = sheet.Charts.AddChartAndFitInto(17, 10, 32, 16, ChartType.ColumnStacked3D)
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1)))

        columnChart = sheet.Charts.AddChartAndFitInto(17, 17, 32, 23, ChartType.ColumnStacked1003D)
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 1, length - 1, 1)))

        columnChart = sheet.Charts.AddChartAndFitInto(33, 10, 48, 16, ChartType.Column3D)
        columnChart.SeriesCollection.Add(New Series(sheet.Range(0, 0, length - 1, 0)))
        columnChart.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