ByteScout PDF SDK – VBScript and VB6 – Add Images in PDF

Home
/
Articles
/
ByteScout PDF SDK – VBScript and VB6 – Add Images in PDF

printable version:
ByteScout-PDF-SDK-VBScript-and-VB6-Add-Images-in-PDF.pdf

How to add images in PDF in VBScript and VB6 and ByteScout PDF SDK

How to add images in PDF in VBScript and VB6

Every ByteScout tool contains example VBScript and VB6 source codes that you can find here or in the folder with installed ByteScout product. ByteScout PDF SDK is the library for pdf documents generation, modification and updates. Can also generate and fill PDF forms. Provides support for text (fonts, style, size, font family), layers, pdf form fields, vector and raster drawings. It can be used to add images in PDF using VBScript and VB6.

You will save a lot of time on writing and testing code as you may just take the VBScript and VB6 code from ByteScout PDF SDK for add images in PDF below and use it in your application. In your VBScript and VB6 project or application you may simply copy & paste the code and then run your app! Test VBScript and VB6 sample code examples whether they respond your needs and requirements for the project.

Our website provides trial version of ByteScout PDF SDK 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)

Images.vbs

      ' This example demonstrates how to add images of various formats. 

' Create Bytescout.PDF.Document object
Set pdfDocument = CreateObject("Bytescout.PDF.Document")
pdfDocument.RegistrationName = "demo"
pdfDocument.RegistrationKey = "demo"

Set comHelpers = pdfDocument.ComHelpers

' Add page
Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)
pdfDocument.Pages.Add(page1)

Set canvas = page1.Canvas

' Add JPEG image and draw unscaled
Set image1 = comHelpers.CreateImage("Image1.jpg")
canvas.DrawImage (image1), 20, 20

' Add PNG image and draw reduced twice
Set image2 = comHelpers.CreateImage("Image2.png")
canvas.DrawImage_2 (image2), 20, 520, image2.Width / 2, image2.Height / 2

' Add TIFF image and draw scaled disproportionately
Set image3 = comHelpers.CreateImage("Image3.tif")
canvas.DrawImage_2 (image3), 270, 520, image3.Width / 2, image3.Height / 4

' Add GIF image and draw rotated 90 degrees and scaled
Set image4 = comHelpers.CreateImage("Image4.gif")
canvas.TranslateTransform 390, 650
canvas.RotateTransform 90
canvas.DrawImage_2 (image4), 0, 0, image4.Width / 4, image4.Height / 4

' Save document to file
pdfDocument.Save("result.pdf")

' Open document in default PDF viewer app
Set shell = CreateObject("WScript.Shell")
shell.Run "result.pdf", 1, false