View Single Post
 
Old 01-22-2012, 01:53 PM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

You can use code to clone the animation.

This code clones the first animation on slide 1

Code:
Sub clone_anim()
Dim osld As Slide
Dim i As Integer
Set osld = ActivePresentation.Slides(1)
For i = 1 To 3
osld.TimeLine.MainSequence.Clone osld.TimeLine.MainSequence(1)
Next
End Sub
Don't know how to use code

This screencast shows how to go about setting up the slide

http://screencast.com/t/URUpto5ANK
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote