Repeating Custom Animations

[Guest]

How can I repeat a series of custom animations on a slide so that each
animation runs as set up, then the whole series repeats again.

 

[John Langhans [MSFT]]

[CRITICAL UPDATE - Anyone using Office 2003 should install the Critical
Update or Service Pack 1 for Office 2003 as soon as possible. From
PowerPoint, choose "Help -> Check for Updates".]

[TOP ISSUE - Are you having difficulty opening presentations in PowerPoint
that you just created (you can save, but not open)? -
http://support.microsoft.com/?id=329820]

Hello,

PowerPoint does not have the specific capability that you are looking for
through the user interface. Although in PowerPoint 2002 and PowerPoint 2003
you can, through the user interface, have each individual animation effect
loop individually until end of slide you CANNOT combine/group a sequence of
animation effects and have that sequence loop repeatedly.

However (for the courageous), this is possible through the object model for
PowerPoint 2002 and 2003 (see sample code demonstrating this, for Fade In
and Fade Out effects, at end of message).

If you (or anyone else reading this message) think that PowerPoint should
provide (through the user interace and not require VBA or add-ins) a way
combining animation sequences so that, for example, timings can be applied
to a sequence instead of just individual effects, don't forget to send your
feedback (in YOUR OWN WORDS, please) to Microsoft by either:

PREFERRED METHOD:

A) If you are using Microsoft's web-based, online newsreader for Office
communities
(http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.p
ublic.powerpoint), check to see whether or not the suggestion has been
submitted before (Show -> Suggestions for Microsoft) and, if so, add your
vote to the suggestion submission. If the suggestion has not been submitted
before, click on the "New" drop-down menu and choose "Suggestion for
Microsoft" from directly within the newsreader web page.

OR, NEXT BEST METHOD:

B) If you are using another newsreader (such as Microsoft Outlook Express),
submit your suggestion using your web browser at the following address:
http://register.microsoft.com/mswish/suggestion.asp

It's VERY important that, for EACH wish, you describe in detail, WHY it is
important TO YOU that your product suggestion be implemented. A good wish
submssion includes WHAT scenario, work-flow, or end-result is blocked by
not having a specific feature, HOW MUCH time and effort ($$$) is spent
working around a specific limitation of the current product, etc. Remember
that 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 so that we can FEEL YOUR PAIN.

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

Sample code to add a looping Fade In and Out to the first shape on the
first slide:

============= Begin sample code ===============

Sub myLoopingFadeInOut()

Set currentShape = Application.ActivePresentation.Slides(1).Shapes(1)
Set effCustom =
Application.ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(cur
rentShape, msoAnimEffectCustom, msoAnimateLevelNone,
msoAnimTriggerWithPrevious)

With effCustom

' Set Visible Behavior: from 0 to 0.001
.Behaviors(1).SetEffect.To = 1 ' visible

' Fade In Behavior: from 0.001 to 2.499
.Behaviors.Add(msoAnimTypeFilter).FilterEffect.Type =
msoAnimFilterEffectTypeFade
.Behaviors(2).FilterEffect.Reveal = msoTrue ' fade in
.Behaviors(2).Timing.TriggerDelayTime = "0.001"
.Behaviors(2).Timing.Duration = "2.499"

' Fade Out Behavior: from 2.5 to 4.999
.Behaviors.Add(msoAnimTypeFilter).FilterEffect.Type =
msoAnimFilterEffectTypeFade
.Behaviors(3).FilterEffect.Reveal = msoFalse ' fade out
.Behaviors(3).Timing.TriggerDelayTime = "2.5"
.Behaviors(3).Timing.Duration = "2.499"

' Set Hidden Behavior: from 4.999 to 5.0
.Behaviors.Add(msoAnimTypeSet).SetEffect.Property = msoAnimVisibility
.Behaviors(4).Timing.Duration = "0.001"
.Behaviors(4).Timing.TriggerDelayTime = "4.999"
.Behaviors(4).SetEffect.To = 0 ' hidden

' Set overall delay and repeat count for custom effect
.Timing.TriggerDelayTime = "0.5"
.Timing.RepeatCount = 9999

End With 'effCustom

End Sub

============= End Sample Code ===============

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.

 

[David M. Marcovitz]

The easiest thing might be to have a blank slide before the slide with
the animations that automatically advances to the next slide. Then, when
the animation sequence is finished, link to the blank slide, but this
will not be automatic. If you know how many times you want to repeat,
you could probably do it with a custom show that contained, for example,
blank-slide animated-slide blank-slide animated-slide blank-slide
animated-slide blank-slide animated-slide blank-slide animated-slide
blank-slide animated-slide, etc.
--David

--
David M. Marcovitz
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

 

[Guest]

I just wanted to make sure I wasn't missing an easier option somewhere.
Repeating a sequence of custom animations would be a good thing to put on
the list for the next version!

Thanks to all!

 

[Guest]

Hi,

You might want to consider some of Shyam's add-ins, such as Animation Carbon
and Motion Path tools:
http://www.mvps.org/skp/index.html

Glenna

 

[Guest]

I found a way and it's easy and efficient...Select all the objects within the
animation sequence by holding down the shift key when selecting...Be sure to
select each animation object in the same order your want them to
perform...When you have all the objects selected, choose "Copy" from the Edit
Menu or by right clicking the mouse and choosing "Paste"...The next step is
to select "Paste" from the Edit Menu or by right clicking the mouse and
choosing "Paste". This will paste a duplicate of the animations you created
in the animation listing...You can do this as many times as you need...