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