ByteScout PDF Suite – VBScript – Add video annotation to pdf with pdf sdk

Home
/
Articles
/
ByteScout PDF Suite – VBScript – Add video annotation to pdf with pdf sdk

printable version:
ByteScout-PDF-Suite-VBScript-Add-video-annotation-to-pdf-with-pdf-sdk.pdf

How to add video annotation to pdf with pdf sdk in VBScript using ByteScout PDF Suite

Step-by-step tutorial on how to add video annotation to pdf with pdf sdk in VBScript

The sample source code below will teach you how to add video annotation to pdf with pdf sdk in VBScript. What is ByteScout PDF Suite? It is the set that includes 6 SDK products to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript. It can help you to add video annotation to pdf with pdf sdk in your VBScript application.

The SDK samples given below describe how to quickly make your application do add video annotation to pdf with pdf sdk in VBScript with the help of ByteScout PDF Suite. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! This basic programming language sample code for VBScript will do the whole work for you to add video annotation to pdf with pdf sdk.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

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

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

VideoAnnotation.vbs

      ' This example demonstrates how to add a video to PDF document.

' 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)

' Add video annotation
Set movie = comHelpers.CreateMovie("sample.avi")
Set movieAnnotation = comHelpers.CreateMovieAnnotation((movie), 20, 20, 320, 240)
movieAnnotation.MovieActivation.ShowControls = True
page1.Annotations.Add(movieAnnotation)

' 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