animation effects

  • Thread starter Thread starter GDaniec
  • Start date Start date
G

GDaniec

Hi!
I have a little problem with media objects in slide show (PP 2002)
Text file contain a list of avi files. This list is being read and
save in the 'lista' array.
Now I to create a new slide for every movie. That all works fine.
My problems start here.
All films should be played in a fullscreen mode.
When I go to the first slide with a movie I want to add fast appear
effect and then play the movie automatically, without mouse click.
When the movie ends next slide should appear automatically with the
same effect.
Can anyone help me?

I have tried something like that:

For i = 0 To UBound(lista) Step 1

With ActivePresentation

.Slides.Add i + 8, ppLayoutBlank

Set film = .Slides(i + 8).Shapes.AddMediaObject("filmy\" &
lista(i), 0, 0, 760, 540)

With film.AnimationSettings
.Animate = msoTrue
With .PlaySettings
'.PlayOnEntry = msoTrue
End With
End With

.Slides(i + 8).TimeLine.MainSequence.AddEffect(film,
msoAnimEffectAppear)

End With
Next i
 
Thanks for answer, but I still have one problem with my presentation.
I create slides and place movies from avi files on them using VBA.
Then I advance to the first slide with the movie.
I don't know how to start playing movie automatically, and after it
ends, advance to the next slide(everything in VBA).
Can You help me?
 
Back
Top