I need to clone an animation from one shape to another in PowerPoint 2003. I
don't have $50 for "Animation Carbon". The clone method of the sequence
object should do this.
However, when I use this method, it does not clone the text animation
information. Here is a snippet of my code (prior to running the macro, the
user selects the shape whose animation he wants to clone and the shape he
wants to animate):
'Get the slide with the shapes
Set mySlide = ActiveWindow.Selection.SlideRange(1)
'Get the shape that has the animation to be copied
Set myShapeFrom = ActiveWindow.Selection.ShapeRange(1)
'Get the shape to be animated
Set myShapeTo = ActiveWindow.Selection.ShapeRange(2)
'Check each effect in the main sequence of the slide where the shapes were
For Each myEffFrom In mySlide.TimeLine.MainSequence
'Check if the shape attached to this effect is the shape whose
'animation is to be copied
If myEffFrom.Shape.Id = myShapeFrom.Id Then
'If it is, clone the effect and set the shape for this effect
'to the shape being animated
Set myEffTo = mySlide.TimeLine.MainSequence.Clone(myEffFrom)
Set myEffTo.Shape = myShapeTo
(same code for each interactive sequence)
If the shape being animated (i.e., myShapeTo) has text, only the text is
animated. When I look at the effect options (pulldown from effect in the
custom animation pane in ppt) there is no text animation tab.
I checked the parameters for each effect (original and cloned) and the only
one that doesn't match is the EffectInformation.AnimateBackground property.
This is true for the original effect and false for the cloned effect. The
AnimateBackground property is read only for the EffectInformation object.
So........ what am I overlooking? I'd truly appreaciate any help anyone can