ByteScout Image To Video SDK – VBScript – Slide Effects (Ease In and Ease Out)

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – Slide Effects (Ease In and Ease Out)

printable version:
ByteScout-Image-To-Video-SDK-VBScript-Slide-Effects-(Ease-In-and-Ease-Out).pdf

slide effects (ease in and ease out) in VBScript with ByteScout Image To Video SDK

Write code in VBScript to make slide effects (ease in and ease out) with this How-To tutorial

Sample source codes below will show you how to cope with a difficult task, for example, slide effects (ease in and ease out) in VBScript. ByteScout Image To Video SDK helps with slide effects (ease in and ease out) in VBScript. ByteScout Image To Video SDK is the software development kit that can take a set of images and generate video slide show from them. Includes built-in support for 100+ of 2-D and 3-D slide transitions effects. Supports output in WMV, AVI, WEBM video formats.

VBScript code snippet like this for ByteScout Image To Video SDK works best when you need to quickly implement slide effects (ease in and ease out) in your VBScript application. VBScript sample code is all you need: copy and paste the code to your VBScript application’s code editor, add a reference to ByteScout Image To Video SDK (if you haven’t added yet) and you are ready to go! Enhanced documentation and tutorials are available along with installed ByteScout Image To Video SDK if you’d like to dive deeper into the topic and the details of the API.

Free trial version of ByteScout Image To Video SDK is available on our website. Get it to try other 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)

SlideEffectsEaseInEaseOut.vbs

      ' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object
Set converter = CreateObject("BytescoutImageToVideo.ImageToVideo")

' Activate the component
converter.RegistrationName = "demo"
converter.RegistrationKey = "demo"

MsgBox "The script will now convert 3 slides into Result.wmv video file"

' Add images and set the duration for every slide
Set slide = converter.AddImageFromFileName("..\..\slide1.jpg")
slide.Duration = 3000 ' 3000ms = 3s
Slide.Effect = 1 ' 1 = EaseIn
slide.EffectDuration = 3000 ' 3000ms = 3s


Set slide = converter.AddImageFromFileName("..\..\slide2.jpg")
slide.Duration = 3000
Slide.Effect = 2 ' 2 = EaseOut
slide.EFfectDuration = 3000

Set slide = converter.AddImageFromFileName("..\..\slide3.jpg")
slide.Duration = 3000
Slide.Effect = 1 ' 1 = EaseIn
Slide.EffectDuration = 3000
' Set output video size
converter.OutputWidth = 640
converter.OutputHeight = 480

' Set output video file name
converter.OutputVideoFileName = "result.wmv"

' Run the conversion
converter.RunAndWait()

MsgBox "Result.wmv is ready. Script will try to open the video in default media player"

' Open result in default media player
Set shell = CreateObject("WScript.Shell")
shell.Run "result.wmv", 1, false
Set shell = Nothing

Set converter = Nothing