ByteScout Data Extraction Suite - VB.NET - Add stock chart with spreadsheet sdk - ByteScout

ByteScout Data Extraction Suite – VB.NET – Add stock chart with spreadsheet sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Data Extraction Suite – VB.NET – Add stock chart with spreadsheet sdk

How to add stock chart with spreadsheet sdk in VB.NET and ByteScout Data Extraction Suite

Learn to code in VB.NET to add stock chart with spreadsheet sdk with this step-by-step tutorial

The sample shows instructions and algorithm of how to add stock chart with spreadsheet sdk and how to make it run in your VB.NET application. ByteScout Data Extraction Suite is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can be applied to add stock chart with spreadsheet sdk using VB.NET.

This prolific sample source code in VB.NET for ByteScout Data Extraction Suite contains various functions and other necessary options you should do calling the API to add stock chart with spreadsheet sdk. 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! Complete and detailed tutorials and documentation are available along with installed ByteScout Data Extraction Suite if you’d like to learn more about the topic and the details of the API.

You can download free trial version of ByteScout Data Extraction Suite from our website to see and try many others 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 Data Extraction Suite Home Page

Explore ByteScout Data Extraction Suite Documentation

Explore Samples

Sign Up for ByteScout Data Extraction Suite 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 Data Extraction Suite Home Page

Explore ByteScout Data Extraction Suite Documentation

Explore Samples

Sign Up for ByteScout Data Extraction Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next