ByteScout Spreadsheet SDK – VB.NET – Add Column Chart

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

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

How to add column chart in VB.NET with ByteScout Spreadsheet SDK

Write code in VB.NET to add column chart with this step-by-step tutorial

The code below will help you to implement an VB.NET app to add column chart. ByteScout Spreadsheet SDK can add column chart. It can be used from VB.NET. ByteScout Spreadsheet SDK is the SDK component for writing, reading, modifying and calculating Excel and CSV spreadsheets. Can calculate and reculculate formulas with Excel installed. You may import or export data to and from CSV, XML, JSON. Supports export to databases, arrays, streams.

Fast application programming interfaces of ByteScout Spreadsheet SDK for VB.NET plus the instruction and the code below will help you quickly learn how to add column chart. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Further enhancement of the code will make it more vigorous.

Trial version of ByteScout Spreadsheet SDK can be downloaded for free from our website. It also includes source code samples for VB.NET and other programming languages.

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