Two XP (2002) animation issues

  • Thread starter Thread starter Eugene
  • Start date Start date
E

Eugene

Is there any way to change the default speed of an animation. I use
fade a lot but find the default Medium too slow.

Is there any way of writing a macro or making a single click icon to
add a particular animation. This used to be possible in Powerpoint
2000 but I've yet tomanage it in 2002

Thanks

Eugene
 
Eugene,
This neat feature exists in 2002/2003. You can set the duration.

1. In the custom animation window select the entry for the Fade animation
you've applied to the shape
2. Click the arrow to bring up the drop down menu.
3. Select timings.
4. In the timings tab, next to speed the entry will be 2 seconds (Medium).
5. Select that combo box and type in the number of seconds.
6. Click on OK.


2002/2003 animation engine is different hence the macro recorder doesn't
work. This snippet will apply Fade animation to the selected shape and set
the animation duration to 2.5 seconds.

' ----- Beginning Of Code -----
Sub AddFadeAnimation()
Dim oSld As Slide
Dim oShp As Shape
Dim oEffect As Effect
' Get the active shape and slide
Set oSld = ActiveWindow.Selection.SlideRange(1)
Set oShp = ActiveWindow.Selection.ShapeRange(1)

' Add an animation effect and modify the duration
Set oEffect = oSld.TimeLine.MainSequence.AddEffect(oShp,
msoAnimEffectFade)
With oEffect.Timing
.Duration = 2.5
End With
End Sub
' ----- End Of Code -----
--
Regards
Shyam Pillai

Toolbox for PowerPoint
http://www.mvps.org/skp/toolbox
 
Eugene,
This neat feature exists in 2002/2003. You can set the duration.

1. In the custom animation window select the entry for the Fade animation
you've applied to the shape
2. Click the arrow to bring up the drop down menu.
3. Select timings.
4. In the timings tab, next to speed the entry will be 2 seconds (Medium).
5. Select that combo box and type in the number of seconds.
6. Click on OK.


2002/2003 animation engine is different hence the macro recorder doesn't
work. This snippet will apply Fade animation to the selected shape and set
the animation duration to 2.5 seconds.

' ----- Beginning Of Code -----
Sub AddFadeAnimation()
Dim oSld As Slide
Dim oShp As Shape
Dim oEffect As Effect
' Get the active shape and slide
Set oSld = ActiveWindow.Selection.SlideRange(1)
Set oShp = ActiveWindow.Selection.ShapeRange(1)

' Add an animation effect and modify the duration
Set oEffect = oSld.TimeLine.MainSequence.AddEffect( _
oShp, msoAnimEffectFade)
With oEffect.Timing
.Duration = 2.5
End With
End Sub
' ----- End Of Code -----
--
Regards
Shyam Pillai

Toolbox for PowerPoint
http://www.mvps.org/skp/toolbox
 
Thanks Shyam


If I understand your suggestion correctly, I think I may have not
asked my question as well as I might. What I would like to do is to
change the default speed from medium to very fast, so that every time
I choose 'fade' I get a very fast fade rather than a medium fade. I
think what you were describing was a method to change each animation
from medium to very fast which is what I have to do at the moment.
This is quickest using the drop down speed menu rather than the
timings option you suggest.

If I have misunderstood you please forgive me and let me know so I can
try again.

I'll explore the power tools but they look a little out of my league.

Eugene
 
Eugene,
I misinterpreted the question. I am not sure if you can set defaults in the
UI for various animations. I'll check and revert on this.
Using code one can do it easily.

--
Regards
Shyam Pillai

Handout Wizard
http://www.mvps.org/skp/how/
 
The macro routine workd very well. I'm going to try to modify it for
an exit routine as well.

Thanks

Eugene
 
Struggling with exit fade. Found a bunch of animation codes but all for entry.

Any suggestins ?

Eugene
 
Back
Top