PowerPoint Animation Macros

[The Good Doctor]

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?

[Troy @ TLC Creative]

I do lots of animation on projects and could not create the macros needed,
but I did find an add-in that accomplishes it and more. I utilize PowerTools
'effects library' for this purpose. Here is the website with more info:
http://corpimaging.com/PowerTools/pt-FXLib.htm

--
Best Regards,
Troy Chollar
==============================
"troy at TLCCreative dot com"
TLC Creative Services, inc.
www.tlccreative.com
==============================

"The Good Doctor" <anon...@discussions.microsoft.com> wrote in message
news:0D5DD29D-7213-48BA...@microsoft.com...

[Evi]

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" <anon...@discussions.microsoft.com> wrote in message
news:0D5DD29D-7213-48BA...@microsoft.com...

[John Langhans [MSFT]]

[CRITICAL UPDATE - If you are using Office 2003, you should install this
update as soon as possible. From PowerPoint, choose "Help -> Check for
Updates".]

Hello,

Without resorting to VBA or add-ins, PowerPoint doesn't have the capability
to copy or store sets of animation effects so that they can be
copied/applied later on.

If it is important to you (or anyone else reading this message) that
PowerPoint include an option to retain animation settings when you replace
an arbitrary object with another object, or the ability to copy animation
settings from one object to another (without having to resort to VBA or
add-ins), don't forget to send your feedback (in YOUR OWN WORDS, please) to
Microsoft at:

http://register.microsoft.com/mswish/suggestion.asp

As with all product suggestions, it's important that you not just state
your wish but also WHY it is important to you that your product suggestion
be implemented by Microsoft. Microsoft receives thousands of product
suggestions every day and we read each one but, in any given product
development cycle, there are only sufficient resources to address the ones
that are most important to our customers so take the extra time to state
your case as clearly and completely as possible.

IMPORTANT: Each submission should be a single suggestion (not a list of
suggestions)

John Langhans
Microsoft Corporation
Supportability Program Manager
Microsoft Office PowerPoint for Windows
Microsoft Office Picture Manager for Windows

For FAQ's, highlights and top issues, visit the Microsoft PowerPoint
support center at: http://support.microsoft.com/default.aspx?pr=ppt
Search the Microsoft Knowledge Base at:
http://support.microsoft.com/default.aspx?pr=kbhowto

This posting is provided "AS IS" with no warranties, and confers no rights.
Use of any included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm