ByteScout Data Extraction Suite – VBScript – Add images to spreadsheet with spreadsheet sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VBScript – Add images to spreadsheet with spreadsheet sdk

printable version:
ByteScout-Data-Extraction-Suite-VBScript-Add-images-to-spreadsheet-with-spreadsheet-sdk.pdf

How to add images to spreadsheet with spreadsheet sdk in VBScript with ByteScout Data Extraction Suite

Learning is essential in computer world and the tutorial below will demonstrate how to add images to spreadsheet with spreadsheet sdk in VBScript

Quickly learn how to add images to spreadsheet with spreadsheet sdk in VBScript with this sample source code. ByteScout Data Extraction Suite is 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 and you can use it to add images to spreadsheet with spreadsheet sdk with VBScript.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Data Extraction Suite for add images to spreadsheet with spreadsheet sdk below and use it in your application. Follow the instructions from scratch to work and copy the VBScript code. Want to see how it works with your data then code testing will allow the function to be tested and work properly.

Our website gives trial version of ByteScout Data Extraction Suite for free. It also includes documentation and source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

AddImages.vbs

      Set document = CreateObject("Bytescout.Spreadsheet.Spreadsheet")

document.RegistrationName = "demo"
document.RegistrationKey = "demo"

 ' Add new worksheet
Set worksheet = document.Workbook.Worksheets.Add("HelloWorld")

Set pictures = worksheet.Pictures

' add a picture to specified cell
pictures.Add 1, 1, "image1.jpg" 

' add a picture by absolute pixel coordinates
pictures.Add_3 "image2.jpg", 550, 100

' fit picture into cell range
Set picture = pictures.AddAndFitInto(27, 1, 32, 5, "image1.jpg")

' rotate the last added picture
picture.Rotation = 45


' delete output file if exists already
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("Output.xls")) Then fso.DeleteFile("Output.xls")
Set fso = nothing

' save document
document.SaveAs "Output.xls"

' close Spreadsheet
Set document = Nothing