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

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

  • Home
  • /
  • Articles
  • /
  • ByteScout PDF SDK – VBScript and VB6 – Add Images in 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.

Try ByteScout PDF SDK today: Get 60 Day Free Trial or sign up for Web API

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

Try ByteScout PDF SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

VIDEO

ON-PREMISE VERSION

Get 60 Day Free Trial or Visit ByteScout PDF SDK page

Explore ByteScout PDF SDK documentation

WEB API

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next