"Sequence (unknown member): Invalid request"?

G

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
 
G

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top