ByteScout Spreadsheet SDK - VB.NET - Add Stock Chart - ByteScout

ByteScout Spreadsheet SDK – VB.NET – Add Stock Chart

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

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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page

Explore ByteScout Spreadsheet SDK Documentation

Explore Samples

Sign Up for ByteScout Spreadsheet SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page

Explore ByteScout Spreadsheet SDK Documentation

Explore Samples

Sign Up for ByteScout Spreadsheet SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next