Try this Macro:
=====Begin Code=====
Sub MacroMakeOver()
Dim oSld As Slide
Dim oShp As Shape
For Each oSld In ActivePresentation.Slides
'Add a transition for each slide
With oSld.SlideShowTransition
.EntryEffect = ppEffectBoxOut
.Speed = ppTransitionSpeedMedium
End With
'Add an animation to each picture
For Each oShp In oSld.Shapes
With oSld.TimeLine.MainSequence. _
AddEffect(Shape:=oShp, _
EffectId:=msoAnimEffectEaseIn)
.Timing.Speed = 0.2
.Timing.TriggerType = _
msoAnimTriggerAfterPrevious
End With
Next oShp
Next oSld
End Sub
=====End Code=====
Of course you may want to change the animation or transition speeds or
types.
*How do I use VBA code in PowerPoint?
http://www.rdpslides.com/pptfaq/FAQ00033.htm
--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..