On Jul 21, 7:58*am, Steve Rindsberg <ab...@localhost.com> wrote:
> In article <5da4fced-82a4-4cea-a038-48d8d4f1b...@j33g2000pri.googlegroups..com>,
>
> *wrote:
> > Hello - I want to change theSlideTransitionsettings to "Fade
> > Smoothly"/"Fast" in 2,000Powerpointfiles. *Is there a way to make
> > this global change to all of these individual files by some batch/
> > multiple update method instead of opening each one, selecting all of
> > the slides, and changing theSlideTransitionmanually?
>
> You could do this with VBA. *Put the VBA in a presentation in a folder OTHER
> THAN the folder containing the files you want to process; you don't want the
> snake to eat its own tail.
>
> See this for the general outline:
>
> Batch: Do something to every file in a folderhttp://www.pptfaq.com/FAQ00536.htm
>
> And where you see this in the macro on that page:
>
> * *With oPresentation
> * * * * ' do something
> * * End With
>
> substitute this:
>
> With oPresentation
> * * Dim oSl AsSlide
> * * For Each oSl In ActivePresentation.Slides
> * * * * With oSl.SlideShowTransition
> * * * * * * .EntryEffect = ppEffectFadeSmoothly
> * * * * * * ' uncomment the one you want by removing the ' character
> * * * * * * .Speed = ppTransitionSpeedFast
> * * * * * * '.Speed = ppTransitionSpeedMedium
> * * * * * * '.Speed = ppTransitionSpeedSlow
> * * * * End With
> * * Next
> End With
>
> -----------------------------------------
> Steve Rindsberg, PPT MVP
> PPT FAQ: *www.pptfaq.com
> PPTools: *www.pptools.com
> ================================================
> Live and in personable in the Help Center atPowerPointLive
> Sept 21-24, San Diego CA, USAwww.pptlive.com
Thanks much - I'll give it a try!