Two XP (2002) animation issues

[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

 

[Mickey Stevens]

Hi Eugene,

I don't know anything about controlling animation using VBA, but there
are some links to Microsoft resources at the PowerPoint FAQ:
<http://www.rdpslides.com/pptfaq/FAQ00503.htm>

Mickey Stevens
Microsoft MVP

 

[Shyam Pillai]

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

 

[Shyam Pillai]

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]

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

 

[Shyam Pillai]

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/

 

[Eugene]

The macro routine workd very well. I'm going to try to modify it for
an exit routine as well.

Thanks

Eugene

 

[Eugene]

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

Any suggestins ?

Eugene