G
gil.horen
Hey,
I am trying to clone a shape animation to another shape, so i have two
biq difficulties:
1. Do i have to remove the target shape animation? ( i did it with:
B.AnimationSettings.Animate = msoFalse - where B is my shape ).
2. Take a look at this code:
*****************************************************************************************
With ActivePresentation.Slides(1).TimeLine
NumberOfAnimations = .MainSequence.Count
For Each Seq In .MainSequence
CompareString = StrComp(.MainSequence(index).Shape.Name,
source, vbTextCompare)
If (CompareString = 0) Then
.MainSequence.AddEffect _
B, .MainSequence(index).EffectType
End If
index = index + 1
Next
End With
*******************************************************************************************
in some cases it changes the source shape animation - any solution?
Thanx,
Gil H
I am trying to clone a shape animation to another shape, so i have two
biq difficulties:
1. Do i have to remove the target shape animation? ( i did it with:
B.AnimationSettings.Animate = msoFalse - where B is my shape ).
2. Take a look at this code:
*****************************************************************************************
With ActivePresentation.Slides(1).TimeLine
NumberOfAnimations = .MainSequence.Count
For Each Seq In .MainSequence
CompareString = StrComp(.MainSequence(index).Shape.Name,
source, vbTextCompare)
If (CompareString = 0) Then
.MainSequence.AddEffect _
B, .MainSequence(index).EffectType
End If
index = index + 1
Next
End With
*******************************************************************************************
in some cases it changes the source shape animation - any solution?
Thanx,
Gil H