The sample source code below will teach you how to add images advanced with spreadsheet sdk in VB.NET. ByteScout Data Extraction Suite: 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. It can add images advanced with spreadsheet sdk in VB.NET.
Want to quickly learn? This fast application programming interfaces of ByteScout Data Extraction Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to add images advanced with spreadsheet sdk. Simply copy and paste in your VB.NET project or application you and then run your app! This basic programming language sample code for VB.NET will do the whole work for you to add images advanced 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)
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 Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
also available as: