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

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

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Add-surface-chart-with-spreadsheet-sdk.pdf

How to add surface chart with spreadsheet sdk in VB.NET using ByteScout Data Extraction Suite

Learning is essential in computer world and the tutorial below will demonstrate how to add surface chart with spreadsheet sdk in VB.NET

This sample source code below will display you how to add surface chart with spreadsheet sdk in VB.NET. Want to add surface chart with spreadsheet sdk in your VB.NET app? ByteScout Data Extraction Suite is designed for it. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Data Extraction Suite. Just copy and paste the code into your VB.NET application’s code and follow the instructions. This basic programming language sample code for VB.NET will do the whole work for you to add surface chart with spreadsheet sdk.

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 a data for Surface chart
        Dim count As Integer = 10
        Dim [step] As Double = 2 * Math.PI / (count - 1)
        For i As Integer = 0 To count - 1
            For j As Integer = 0 To count - 1
                sheet(i, j).Value = Math.Sin([step] * Math.Sqrt(i * i + j * j))
            Next
        Next

        ' Add charts to worksheet
        Dim surfaceChart As Chart = sheet.Charts.AddChartAndFitInto(11, 1, 28, 8, ChartType.Surface)
        For i As Integer = 0 To count - 1
            surfaceChart.SeriesCollection.Add(New Series(sheet.Range(0, i, 9, i)))
        Next

        surfaceChart = sheet.Charts.AddChartAndFitInto(11, 10, 28, 17, ChartType.SurfaceWireframe)
        For i As Integer = 0 To count - 1
            surfaceChart.SeriesCollection.Add(New Series(sheet.Range(0, i, 9, i)))
        Next

        surfaceChart = sheet.Charts.AddChartAndFitInto(29, 1, 46, 8, ChartType.SurfaceTopView)
        For i As Integer = 0 To count - 1
            surfaceChart.SeriesCollection.Add(New Series(sheet.Range(0, i, 9, i)))
        Next

        surfaceChart = sheet.Charts.AddChartAndFitInto(29, 10, 46, 17, ChartType.SurfaceTopViewWireframe)
        For i As Integer = 0 To count - 1
            surfaceChart.SeriesCollection.Add(New Series(sheet.Range(0, i, 9, i)))
        Next

        ' 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