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

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

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

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

If you want to learn more then this tutorial will show how to add area chart with spreadsheet sdk in VB.NET

The coding instructions are formulated to help you to try-out the features without the requirement to write your own code. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can be applied to add area chart with spreadsheet sdk using VB.NET.

This prolific sample source code in VB.NET for ByteScout Data Extraction Suite contains various functions and other necessary options you should do calling the API to add area chart with spreadsheet sdk. Follow the instructions from scratch to work and copy the VB.NET code. Further improvement of the code will make it more robust.

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

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)
        Next

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

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

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

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

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

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