ByteScout Spreadsheet SDK – VB.NET – Add Surface Chart

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

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

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

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

ByteScout tutorials are designed to explain the code for both VB.NET beginners and advanced programmers. ByteScout Spreadsheet SDK: the SDK that can write and read, modify and calculate Excel and CSV spreadsheets. Most popular formulas are supported. You may import or export data to and from CSV, XML, JSON as well as to and from databases, arrays. It can add surface chart in VB.NET.

The SDK samples like this one below explain how to quickly make your application do add surface chart in VB.NET with the help of ByteScout Spreadsheet SDK. Just copy and paste the code into your VB.NET application’s code and follow the instruction. Further enhancement of the code will make it more vigorous.

Trial version of ByteScout Spreadsheet SDK can be downloaded for free from our website. It also includes source code samples for VB.NET and other programming languages.

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