ByteScout Spreadsheet SDK – VB.NET – Add Chart Column

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

ByteScout Spreadsheet SDK – VB.NET – Add Chart Column

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

Click here to get your Free Trial version of the SDK

ByteScout Spreadsheet SDK – VB.NET – Add Chart Column

ByteScout Spreadsheet SDK – VB.NET – Add Chart Column

Tutorials: