ByteScout Data Extraction Suite – VB.NET – Fonts available for cells with spreadsheet sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VB.NET – Fonts available for cells with spreadsheet sdk

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Fonts-available-for-cells-with-spreadsheet-sdk.pdf

fonts available for cells with spreadsheet sdk in VB.NET using ByteScout Data Extraction Suite

Simple tutorial on how to do fonts available for cells with spreadsheet sdk in VB.NET

This page helps you to learn from code samples for programming in VB.NET. ByteScout Data Extraction Suite was created to assist fonts available for cells with spreadsheet sdk in VB.NET. 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.

This rich and prolific sample source code in VB.NET for ByteScout Data Extraction Suite contains various functions and options you should do calling the API to implement fonts available for cells with spreadsheet sdk. Follow the steps-by-step instructions from the scratch to work and copy and paste code for VB.NET into your editor. These VB.NET sample examples can be used in one or many applications.

Trial version can be downloaded from our website for free. It contains 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 System.IO

Module Module1

    Sub Main()
        ' Create new Spreadsheet
        Dim document As New Spreadsheet()

        ' Add new worksheet
        Dim worksheet As Worksheet = document.Workbook.Worksheets.Add("HelloWorld")

        ' Create array with font names
        Dim fontNames() As String = {"Helvetica", "Times New Roman", "Verdana", "Times New Roman"}

        ' Use all fonts in fontsNames array
        For i As Integer = 0 To fontNames.Length - 1
            ' Set font size based on loop counter
            Dim fontSize As Double = 10 + i * 3

            'Set cell font type and font size
            worksheet.Cell(i, 0).Font = New System.Drawing.Font(fontNames(i), fontSize)

            ' Set cell value
            worksheet.Cell(i, 0).Value = fontNames(i)
        Next


        ' remove output file if already exists
        If File.Exists("Output.xls") Then
            File.Delete("Output.xls")
        End If

        ' Save document
        document.SaveAs("Output.xls")

        ' Close Spreadsheet
        document.Close()

        ' open in default spreadsheets viewer/editor
        Process.Start("Output.xls")

    End Sub

End Module