Changing Default Animation Settings for PPT 2002

[Toni]

I'm working on loads of slides, adding custom animations to slides where an Animation
Scheme is too simple. Each slide is different. This will take me days.

Each new animation I create needs to be set as "after previous", but PPT 2002 sets the
default setting for a new animation to "on click". It's simple to change from the
drop-down, but I am working on hundreds of animations and it's the little things that
will save me time.

Can anyone tell me if there is possibly any way to change the default setting for a new
custom animation to "after previous" instead of "on click"???

Thanks so much,

Toni

 

[Ute Simon]

I'm working on loads of slides, adding custom animations to slides where

an Animation Scheme is too simple. Each slide is different. This will take
me days.

Each new animation I create needs to be set as "after previous", but PPT
2002 sets the default setting for a new animation to "on click". It's
simple to change from the drop-down, but I am working on hundreds of
animations and it's the little things that will save me time.

Can anyone tell me if there is possibly any way to change the default
setting for a new custom animation to "after previous" instead of "on
click"???

Hi Toni,

unfortunately you cannot change the default Start or Direction of
animations. But in the list of animations, you can select multiple or all,
by holding the Shift key (for blocks of sequential animations) or the Ctrl
key (for separate but multiple animations) and assign the desired options to
many of them at once.

Best regards,
Ute

 

[John Wilson]

As Ute said you cannot change the default. You could though have a simple
macro switch ALL of the on clicks to after previous in one go. If that would
work the basic code would be something like

Sub afterprev()
Dim osld As Slide
Dim oeff As Effect
For Each osld In ActivePresentation.Slides
For Each oeff In osld.TimeLine.MainSequence
If oeff.Timing.TriggerType = msoAnimTriggerOnPageClick _
Then oeff.Timing.TriggerType = msoAnimTriggerAfterPrevious
Next oeff
Next osld
End Sub

 

[Toni]

Ooh, nice, thanks to John and Ute!

John, it's been a very long time since I've needed to insert a macro - can you please
explain to me how to insert your code?

Also, a final request - how can the code give me a popup when finished of how many
animations it changed?

THANKS!!!

 

[David Marcovitz]

Try this:

Sub afterprev()
Dim osld As Slide
Dim oeff As Effect
Dim count As Long
count = 0
For Each osld In ActivePresentation.Slides
For Each oeff In osld.TimeLine.MainSequence
If oeff.Timing.TriggerType = msoAnimTriggerOnPageClick Then
oeff.Timing.TriggerType = msoAnimTriggerAfterPrevious
count = count + 1
End If
Next oeff
Next osld
MsgBox "You changed " & count & "things."
End Sub

For information about how to use VBA code:

How do I use VBA code in PowerPoint
http://www.pptfaq.com/FAQ00033.htm

--David

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

 

[Toni]

Hi Toni,

unfortunately you cannot change the default Start or Direction of animations. But in
the list of animations, you can select multiple or all, by holding the Shift key (for
blocks of sequential animations) or the Ctrl key (for separate but multiple
animations) and assign the desired options to many of them at once.

Oh, what I'm doing now is, I ctl-select the animate4ed blocks in the order I want them
animated, then I select the animation effect, then select After Previous. It's fast &
everything works the way I want it to work.

Thanks!!!