We made thousands of pre-made source code pieces for easy implementation in your own programming projects. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK and you can use it to add images advanced with spreadsheet sdk with VB.NET.
This prolific sample source code in VB.NET for ByteScout Barcode Suite contains various functions and other necessary options you should do calling the API to add images advanced with spreadsheet sdk. Simply copy and paste in your VB.NET project or application you and then run your app! Complete and detailed tutorials and documentation are available along with installed ByteScout Barcode Suite if you’d like to learn more about the topic and the details of the API.
The trial version of ByteScout Barcode Suite 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)
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.IO
Imports System.Text
Imports Bytescout.Spreadsheet
Imports Bytescout.Spreadsheet.MSODrawing
Namespace AddImages
Class Program
Friend Shared Sub Main(args As String())
' Create spreadsheet
Dim doc As New Spreadsheet()
' Add worksheet
Dim worksheet As Worksheet = doc.Worksheets.Add()
' Put an image to "C3" cell
Dim shape As PictureShape = worksheet.Pictures.Add(2, 2, "image1.jpg")
' Make the picture "floating". It will be not moved if you move or resize the "C3" cell
shape.PlacementType = Placement.FreeFloating
' Make the picture brighter
shape.Brightness = 0.8F
' Put second image to "K11" cell
shape = worksheet.Pictures.Add(10, 10, "image2.jpg")
' Make the picture bound to the cell. It will be moved alonf with the "K11" cell
shape.PlacementType = Placement.Move
' Crop 10% from left and right side of the image
shape.CropFromLeft = 0.1F
shape.CropFromRight = 0.1F
' Delete output file if exists
If File.Exists("output.xls") Then
File.Delete("output.xls")
End If
' Save document
doc.SaveAs("output.xls")
' Close spreadsheet
doc.Close()
' Open generated XLS document in default application
Process.Start("output.xls")
doc.Dispose()
End Sub
End Class
End Namespace
60 Day Free Trial or Visit ByteScout Barcode Suite Home Page
Explore ByteScout Barcode Suite Documentation
Explore Samples
Sign Up for ByteScout Barcode Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Barcode Suite Home Page
Explore ByteScout Barcode Suite Documentation
Explore Samples
Sign Up for ByteScout Barcode Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
also available as: