M
Matt Walker
Hi,
I was hopng someone could help me include a QuickTime moive file into my
Powerpoint presentation?
I realise that there are compatability porblems but i have had limited
success...
I downloaded QTVR from the following site
http://www.indezine.com/products/powerpoint/ppqtvr.html and have used it to
include my moive as an object using AtiveX controls. This works really well
and i haven't lost any of the quaility. The problem i'm having is
controlling the object - when it plays etc. In the FAQ's i found the
following vb code which should help me play and stop playing the clip when i
move slides;
* Class Module / Classe1:
Public WithEvents App As Application
Dim Sld As Integer
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Sld = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
If Sld = 9 Then
Slide9.QTVRControlX1.GoToBeginningOfMovie
Slide9.QTVRControlX1.ControllerActive = True
Slide9.QTVRControlX1.StartMovie
End If
If Sld = 10 Then
Slide9.QTVRControlX1.StopMovie
End If
End Sub
* PowerPoint / Slide 1:
Dim X As New Classe1
Sub InitializeApp()
Set X.App = Application
End Sub
This doesn't however make any difference to when the clip is played as it
plays once the presenation has loaded - even before the first slide!
I would greatly appreciate any help or guidance anyone can give me concering
this!
I was hopng someone could help me include a QuickTime moive file into my
Powerpoint presentation?
I realise that there are compatability porblems but i have had limited
success...
I downloaded QTVR from the following site
http://www.indezine.com/products/powerpoint/ppqtvr.html and have used it to
include my moive as an object using AtiveX controls. This works really well
and i haven't lost any of the quaility. The problem i'm having is
controlling the object - when it plays etc. In the FAQ's i found the
following vb code which should help me play and stop playing the clip when i
move slides;
* Class Module / Classe1:
Public WithEvents App As Application
Dim Sld As Integer
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Sld = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
If Sld = 9 Then
Slide9.QTVRControlX1.GoToBeginningOfMovie
Slide9.QTVRControlX1.ControllerActive = True
Slide9.QTVRControlX1.StartMovie
End If
If Sld = 10 Then
Slide9.QTVRControlX1.StopMovie
End If
End Sub
* PowerPoint / Slide 1:
Dim X As New Classe1
Sub InitializeApp()
Set X.App = Application
End Sub
This doesn't however make any difference to when the clip is played as it
plays once the presenation has loaded - even before the first slide!
I would greatly appreciate any help or guidance anyone can give me concering
this!