"Global" Animation of Photos

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

John Wilson

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top