[CRITICAL UPDATE - Anyone using Office 2003 should install the critical
update as soon as possible. From PowerPoint, choose "Help -> Check for
Updates".]
[TOP ISSUE - Are you having difficulty opening presentations in PPT 2003
that you just created in PPT 2003? -
http://support.microsoft.com/?id=329820]
Hello,
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. So, for example, since Fade in and
Fade out are two separate effects you cannot have the two effects for a
looping sequence (Fade In, Fade Out, Fade In, Fade Out, etc.).
However (for the courageous), this IS possible through the object model for
PowerPoint 2002 and 2003 by creating a custom animation which combines both
Fade In and Fade Out effects into a single, more complex effect (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:
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).
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
