ByteScout Image To Video SDK - VBScript - Pan Effects For Slides - ByteScout

ByteScout Image To Video SDK – VBScript – Pan Effects For Slides

  • Home
  • /
  • Articles
  • /
  • ByteScout Image To Video SDK – VBScript – Pan Effects For Slides

pan effects for slides in VBScript using ByteScout Image To Video SDK

Make pan effects for slides in VBScript

:

Tutorial on how to do pan effects for slides in VBScript

The sample source codes on this page will demonstrate you how to make pan effects for slides in VBScript. Pan effects for slides in VBScript can be implemented with ByteScout Image To Video SDK. 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.

The SDK samples like this one below explain how to quickly make your application do pan effects for slides in VBScript with the help of ByteScout Image To Video SDK. This VBScript sample code should be copied and pasted into your application’s code editor. Then just compile and run it to see how it works. Test VBScript sample code examples whether they respond your needs and requirements for the project.

Our website provides free trial version of ByteScout Image To Video SDK. It comes along with all these source code samples with the goal to help you with your VBScript application implementation.

Try it today: Get 60 Day Free Trial or sign up for Web API

PanEffects.vbs
      
' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object Set converter = CreateObject("BytescoutImageToVideo.ImageToVideo") ' Activate the component converter.RegistrationName = "demo" converter.RegistrationKey = "demo" ' set default in effect for slides (you can also set effects for each single slide) converter.Slides.DefaultSlideInEffect = 0 ' default effect converter.Slides.DefaultSlideInEffectDuration = 1000 ' 1000 msec for slide transition effect effect converter.Slides.DefaultSlideDuration = 2000 ' total duration is 2000 = slide transition (1000 ms) + 1000 ms of slide it self (with pan and zoom effect applied) ' uncomment to use background picture ' converter.SetBackgroundPictureFileName "..\..\background.jpg" ' apply transition effect to the very first slide converter.UseInEffectForFirstSlide = false Randomize ' initialize random values generator bChangeSlide = True ' temporary variable to change slides ' now try all 12 pan zoom effects for slides from 1 to 12 ' list of PanZoom effects (Slide.PanZoomEffect property) ' pzeNone = 0, // default ' pzeMoveCamFromLeftTopToRightTop = 1, ' pzeMoveCamFromRightTopToLeftTop = 2, ' ' pzeMoveCamFromLeftTopToRightBottom = 3, ' pzeMoveCamFromRightBottomToLeftTop = 4, ' ' pzeMoveCamFromLeftCenterToRightCenter = 5, ' pzeMoveCamFromRightCenterToLeftCenter = 6, ' ' pzeMoveCamFromLeftBottomToRightBottom = 7, ' pzeMoveCamFromRightBottomToLeftBottom = 8, ' ' pzeMoveCamFromCenterTopToCenterBottom = 9, ' pzeMoveCamFromCenterBottomToCenterTop = 10, ' ' pzeMoveCamFromLeftBottomToRightTop = 11, ' pzeMoveCamFromRightTopToLeftBottom = 12, for i=1 to 11 ' Add slide image, set the duration if not bChangeSlide then Set slide = converter.AddImageFromFileName("..\..\koala.jpg") Else Set slide = converter.AddImageFromFileName("..\..\penguins.jpg") End If bChangeSlide = not bChangeSlide ' switch to use another slide next tim slide.Duration = 2000 ' 2 seconds (2000 ms) slide.InEffect = Rnd * 100 + 1' set random slide transition effect Slide.InEffectDuration = 1000 ' 1000 ms for slide transition effect slide.PanZoomEffect = i ' set panzoom effect will be shown on whole slide duration (2000 ms) Next ' Set output video size converter.OutputWidth = 640 converter.OutputHeight = 480 ' Set output video file name converter.OutputVideoFileName = "PanEffects.wmv" ' Run the conversion converter.RunAndWait() MsgBox "Done! See PanEffects.wmv" Set converter = Nothing ' Open the output file in default app Set shell = CreateObject("WScript.Shell") shell.Run "PanEffects.wmv", 1, false Set shell = Nothing

Try it today: Get 60 Day Free Trial or sign up for Web API

MORE INFORMATION

Get 60 Day Free Trial or Visit ByteScout Image To Video SDK page

Explore ByteScout Image To Video SDK documentation

WEB API VERSION

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next