ByteScout Barcode Suite – VBScript – Add images to spreadsheet with spreadsheet sdk

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

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

How to add images to spreadsheet with spreadsheet sdk in VBScript using ByteScout Barcode Suite

Step-by-step tutorial on how to add images to spreadsheet with spreadsheet sdk in VBScript

An easy to understand guide on how to add images to spreadsheet with spreadsheet sdk in VBScript with this source code sample. ByteScout Barcode Suite: 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. It can add images to spreadsheet with spreadsheet sdk in VBScript.

Want to quickly learn? This fast application programming interfaces of ByteScout Barcode Suite for VBScript plus the guidelines and the code below will help you quickly learn how to add images to spreadsheet with spreadsheet sdk. Simply copy and paste in your VBScript project or application you and then run your app! Further improvement of the code will make it more robust.

If you want to try other source code samples then the free trial version of ByteScout Barcode Suite is available for download from our website. Just try other source code samples for VBScript.

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