"Sequence (unknown member): Invalid request"?

[Geoff Cox]

Hello,

There is something wrong with code below.

The intention is to change a text box from entrance/fly in (on click)
to entrance/fly (after previous).

The set oEffect line is indicated by debug with error message
"Sequence (unknown member): Invalid request".

Ideas please!

Thanks

Geoff

With oPresentation

For Each oSl In ActivePresentation.Slides

ActiveWindow.View.GotoSlide (oSl.SlideIndex)

With oSl.TimeLine

For i = .MainSequence.count To 1 Step -1
If .MainSequence(i).Shape.Type = msoTextBox Then
If .MainSequence(i).EffectType = msoAnimEffectFly _
Then
Set oSh = .MainSequence(i).Shape

Set oEffect = _
oSl.TimeLine.InteractiveSequences.Add. _
AddEffect(Shape:=oSh, _
effectId:=msoAnimEffectFly, _
Trigger:=msoAnimTriggerAfterPrevious)

With oEffect.Timing
.Duration = 2
.TriggerDelayTime = 0
End With

Set aniMotion = oEffect.Behaviors.Add(msoAnimTypeMotion)


End If
End If

Next i

End With

Next oSl

 

[Geoff Cox]

Hello,

There is something wrong with code below.

Not clear to me why previous code failed but this one works! Perhaps
someone can tell me why?

Cheers

Geoff


For Each oSl In ActivePresentation.Slides

ActiveWindow.View.GotoSlide (oSl.SlideIndex)

With oSl.TimeLine

For i = .MainSequence.count To 1 Step -1

If .MainSequence(i).Shape.Type = msoTextBox Then
If .MainSequence(i).EffectType = msoAnimEffectFly Then
Set oSh = .MainSequence(i).Shape
.MainSequence(i).Delete
Set oEffect = oSl.TimeLine.MainSequence.AddEffect _
(Shape:=oSh, effectId:=msoAnimEffectFly, _
Trigger:=msoAnimTriggerAfterPrevious)
End If
End If

Next i

End With

Next oSl