Thanks John. That's a good idea. I'll put forth some suggestions because I
have a few right now that I'd really like to see implemented. The few I
asked about for 2003 aren't there (I was hoping).
I did my powerpoint presentation tonight and it went very well - lots of
oooo and awwwws. I gave it to a friend to critique and she said it was the
best ppt presentation she'd ever seen. I know I can do and even better job,
but time constraints can sometimes get in the way of course. I can
sometimes come close to making it look like Flash. A layer feature would
really help my efforts. It's so difficult to have many (animated) items on
the page and have to dig down (moving critically placed objects on the way -
that will have to be maticulously put back), to make critical change on a
object that is buried beneath others. Just being able to tab (or shift tab)
to find it, borders on being irritating. I built a 3-page cartoon-like
story and everyone liked it, but I spent sooooo much time on it because
there were so many objects with sounds, paths, and other behaviours, that it
took so much longer than it should.
And ... speaking of taking longer, I got a little carried away with my
response ... didn't mean to do that. Thanks for providing the post address
for suggestions to MS. Appreciated.
DianaH
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 continuously until end of slide you CANNOT combine/group a sequence of
animation effects and have that sequence loop continuously. Since Fade in
and Fade out are two separate effects this is not currently possible.
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)
John Langhans
Supportability Program Manager
Microsoft Office PowerPoint for Windows
Microsoft Office Picture Manager for Windows
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
=============================================
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 ===============