Custom Animation in PowerPoint

[mouseman]

I created a 90-slide presentation with scanned in pictures. On each slide, there are 3 pictures side by side. I would like to custom animate each picture so they fly in. I am doing it one at a time but it is taking forever. I am sure there is an easy way to custom animate all the pictures on each slide at the same time. Thanks

Stephen

 

[VirtualTrainer]

90 scanned images.. yes, doing them one at a time would be a nightmare! Here is a simple solution:

On each slide, when you go to the Custom Animations dialog box and check the images to animate, normally (as you know) only one object is highlighted at a time in the "Check to animate slide objects" field. But fortunately, there is the old Control key trick available.

Select one object in the "Check to animate slide objects" field, then while holding down the CTRL key, click on all other objects that need the same animation. You will notice in the Preview field that all those objects are now selected and you can add animation to them all at the same time.

I hope this helps! Let me know..

Karyn

 

[mouseman]

Karyn,

Thanks for your help, it cut my time in half. But is there a way that I can custom animate the whole presentation all at once, that will be so much easier. Thanks in advance

Stephen

 

[VirtualTrainer]

Ahh.. I fear you ask too much of PowerPoint, grasshoppa. You can apply custom animations to text boxes and objects on the slide master - which would apply to all slides.. but if you add a picture to the slide master, the same picture will appear on all slides. Mind you, I checked it out in PPT 2000.. maybe something new regarding this was added to PPT 2002 (if that's what you are using).

But hey, at least you can do all on each slide at one time. =)

Karyn

Karyn's Toolkit
Free Microsoft Office Tutorials

http://tutorials.esmartweb.com

 

[bkpchs237]

mouseman,

Normally I don't like coding in PowerPoint. I find it more trouble than it's worth, but 90 slides, 3 slides each, 4 seconds to open, 5 seconds to select, 6 seconds to change, 2 seconds to close, etc... boggles the mind!

This should suffice:

Sub SetEntryEffect()
'
' Set entry effect for all objects on slides.
'

Dim i As Long
Dim j As Long

For j = 1 To ActivePresentation.Slides.Count
ActiveWindow.View.GotoSlide Index:=j

For i = 1 To ActiveWindow.Selection.SlideRange.Shapes.Count
ActiveWindow.Selection.SlideRange.Shapes(i).Select

With ActiveWindow.Selection.ShapeRange.AnimationSettings
.Animate = msoTrue
.EntryEffect = ppEffectFlyFromLeft
.TextLevelEffect = ppAnimateByAllLevels
.AnimateBackground = msoTrue
End With

Next i
Next j
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=1
End Sub

The key line is:
.EntryEffect = ppEffectFlyFromLeft
this is where you set the effect, mine is flying from left.
I suggest you record the macro doing the effect and see what the official name is for the effect you want to apply.

Hope this helps.