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.
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