ByteScout Spreadsheet SDK – VB.NET – Add Area Chart

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

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

How to add area chart in VB.NET and ByteScout Spreadsheet SDK

This code in VB.NET shows how to add area chart with this how to tutorial

The sample source code below will teach you how to add area chart in VB.NET. ByteScout Spreadsheet SDK: 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 add area chart in VB.NET.

You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Spreadsheet SDK for add area chart below and use it in your application. Just copy and paste the code into your VB.NET application’s code and follow the instruction. Detailed tutorials and documentation are available along with installed ByteScout Spreadsheet SDK if you’d like to dive deeper into the topic and the details of the API.

ByteScout free trial version is available for download from our website. It includes all these programming tutorials along with 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