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.

Try ByteScout Spreadsheet SDK today: Get 60 Day Free Trial or sign up for Web API

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

Try ByteScout Spreadsheet SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

VIDEO

ON-PREMISE VERSION

Get 60 Day Free Trial or Visit ByteScout Spreadsheet SDK page

Explore ByteScout Spreadsheet SDK documentation

WEB API

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next