Looped animation

  • Thread starter Thread starter Jerry B.
  • Start date Start date
J

Jerry B.

I need to create a custom animation and have it looping
continuosly while the slide is displayed. Is this
possible?
 
Jerry B. said:
I need to create a custom animation and have it looping
continuosly while the slide is displayed. Is this
possible?
Click to expand...

Hi Jerry,

this should be possible - but it's much easier to explain if you tell us you
PowerPoint version.

Kind regards,
Ute
 
[CRITICAL UPDATE - Anyone using Office 2003 should install the critical
update as soon as possible. From PowerPoint, choose "Help -> Check for
Updates".]

Hello,

If it's a single effect and you are using PowerPoint 2002 or 2003 this is
actually quite easy by adjusting the timing options for the effect.
However if it's multiple effects (in sequence) on the same object,
PowerPoint 2002/2003 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 continuously until end of slide you CANNOT
combine/group a sequence of animation effects and have that sequence loop
continuously. For example, since Fade in and Fade out are two separate
effects this is not currently possible to repeatedly fade in an fade out
until you advance to the next slide.

However (for the courageous), this is possible through the object model for
PowerPoint 2002 and 2003 (see sample code 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 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)

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.
Use of any included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm
 
Back
Top