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

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

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

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

Step-by-step tutorial on how to add area chart with spreadsheet sdk in VB.NET

Every ByteScout tool includes simple example VB.NET source codes that you can get here or in the folder with installed ByteScout product. What is ByteScout Barcode Suite? It is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK. It can help you to add area chart with spreadsheet sdk in your VB.NET application.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Barcode Suite for add area chart with spreadsheet sdk below and use it in your 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. If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

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](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