ByteScout Spreadsheet SDK – VB.NET – Add Stock Chart

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

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

How to add stock chart in VB.NET using ByteScout Spreadsheet SDK

The tutorial shows how to add stock chart in VB.NET

With this source code sample you may quickly learn how to add stock chart in 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. It can add stock chart in VB.NET.

VB.NET code samples for VB.NET developers help to speed up coding of your application when using ByteScout Spreadsheet SDK. Just copy and paste the code into your VB.NET application’s code and follow the instruction. Code testing will allow the function to be tested and work properly with your data.

Download free trial version of ByteScout Spreadsheet SDK from our website with this and other source code samples for VB.NET.

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
        For i As Integer = 1 To 5
            sheet(i, 0).Value = 39082 + i
            sheet(i, 0).ValueDataTypeByNumberFormatString = Bytescout.Spreadsheet.Constants.NumberFormatType.DateTime
        Next

        sheet(1, 1).Value = 41301
        sheet(1, 2).Value = 24.3
        sheet(1, 3).Value = 27.2
        sheet(1, 4).Value = 23.49
        sheet(1, 5).Value = 25.45
        sheet(2, 1).Value = 35203
        sheet(2, 2).Value = 25.4
        sheet(2, 3).Value = 25.03
        sheet(2, 4).Value = 19.55
        sheet(2, 5).Value = 23.05
        sheet(3, 1).Value = 27908
        sheet(3, 2).Value = 23
        sheet(3, 3).Value = 19.05
        sheet(3, 4).Value = 15.12
        sheet(3, 5).Value = 17.32
        sheet(4, 1).Value = 29567
        sheet(4, 2).Value = 17.3
        sheet(4, 3).Value = 20.33
        sheet(4, 4).Value = 17.84
        sheet(4, 5).Value = 20.45
        sheet(5, 1).Value = 25895
        sheet(5, 2).Value = 20.4
        sheet(5, 3).Value = 18.56
        sheet(5, 4).Value = 16.33
        sheet(5, 5).Value = 17.35

        ' Add charts to worksheet
        Dim stockChart As Chart = sheet.Charts.AddChartAndFitInto(7, 1, 26, 9, ChartType.StockHLC)
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 3, 5, 3)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 4, 5, 4)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 5, 5, 5)))

        stockChart = sheet.Charts.AddChartAndFitInto(7, 10, 26, 18, ChartType.StockOHLC)
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 2, 5, 2)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 3, 5, 3)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 4, 5, 4)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 5, 5, 5)))

        stockChart = sheet.Charts.AddChartAndFitInto(28, 1, 46, 9, ChartType.StockVHLC)
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 1, 5, 1)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 3, 5, 3)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 4, 5, 4)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 5, 5, 5)))

        stockChart = sheet.Charts.AddChartAndFitInto(28, 10, 46, 18, ChartType.StockVOHLC)
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 1, 5, 1)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 2, 5, 2)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 3, 5, 3)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 4, 5, 4)))
        stockChart.SeriesCollection.Add(New Series(sheet.Range(1, 5, 5, 5)))

        ' 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