"Global" Animation of Photos

  • Thread starter Thread starter Jill
  • Start date Start date
J

Jill

I created a "Photo Album" in PowerPoint 2003 that contains hundreds of
photos. I would like to animate the photos. Is there any way I can add the
same automation (i.e., entrance = random) to all of the photos at once?

Thanks.
 
Random effects is horrible but you can do it in 2003 with vba if you must!

Sub animate_me()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Fill.Type = msoFillPicture Then
osld.TimeLine.MainSequence.AddEffect oshp, msoAnimEffectRandomEffects, ,
msoAnimTriggerWithPrevious
End If
Next oshp
Next osld
End Sub

If you don't know what to do with the code check out
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html#vba
OR
http://pptfaq.com/FAQ00033.htm
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk
 
Back
Top