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

You cannot control the time of the appear effect. It doesn't give the
options to do so.


--
Regards,
Shyam Pillai

Image Importer Wizard
http://skp.mvps.org/iiw.htm



<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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?


On 13 Kwi, 15:19, "Shyam Pillai" <ShyamPil...@Gmail.com> wrote:
> You cannot control the time of the appear effect. It doesn't give the
> options to do so.
>
> --
> Regards,
> Shyam Pillai