The trick is to record a macro doing what you want with one shape and then
make it do the same for every shape on the slide and every slide in the
show.
I've got PP97 so I can't do all the disappearing stuff that you want to do
but I think that you may be able to adapt this code for your own use by
using the For...Next pattern.
This would work if you have nothing but pictures on your slide.
If you have text boxes which you don't want to animate, then when you have
finished, go to Master Slide and make sure that the text boxes are set to
Don't animate and click Apply to All.
Sub TimeAllPics()
Dim MyPres As Presentation
Dim MyShp As Shape
Dim Sld As Slide
Dim ShapeCount As Integer
Dim SlideCount As Integer
Set MyPres = Application.ActivePresentation
For Each Sld In MyPres.Slides
'do the same thing for every slide in the presentation
For Each MyShp In Sld.Shapes
'do the same thing for every shape on the slide
With MyShp.AnimationSettings
.AdvanceMode = ppAdvanceOnTime
'set the shape to activate automatically
.AdvanceTime = 2
'set it to animate after 2 seconds
.Animate = msoTrue
.EntryEffect = ppEffectZoomOut
'set the entry effect to zoom out
.TextLevelEffect = ppAnimateByAllLevels
.AnimateBackground = msoTrue
End With
Next MyShp
'Do the same with the next shape
Next Sld
'do the same for the next slide
End Sub
The Good Doctor said:
Does anyone know how to combine several animations of an object into one
in a macro. I'm doing a presentation in which I want "bunches" of pictures
to "Zoom In" at entrance, "Grow/Shrink", and finally disappear. I would then
make it reappear in a set position. I would have 6 to 8 of these per slide.
I can do it by selecting all of the custom animation commands and selecting
their various options for method of activation, timing, and delay but this
takes a lot of time, and if I don't watch it, troubleshooting.
In effect this is combining three nice animations into one. Could somebody
please tell me how this might be done with a macro or some other "cut/paste"
type command?