This will get you started ....
---------------------------------
Sub ListEffect()
Dim oEff As Effect
With ActivePresentation.Slides(1).TimeLine
For Each oEff In .MainSequence
MsgBox oEff.DisplayName & vbCr & _
oEff.EffectType & vbCr & _
oEff.Timing.Duration
Next oEff
End With
End Sub
------------------------------
For a better explaination, try
http://skp.mvps.org/ppttimeline1.htm
--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..