Capture left and right button for video to play and pauze video remotely

[pacecal]

I've a video on slide 2. I would like to pauze the video on left click and resume on right click. I use a remote pointer.

I'm using the event slideshownextslide. But i can't get it to work. I also tried the events slideshowonnext and slideshowonprevious, but with no success.



Private Sub PPTEvent_SlideShowNextSlide(ByVal Wn As SlideShowWindow)


'Set shp = ActivePresentation.Slides(2).Shapes(1)
'Set ply = Application.Windows(1).View.Player(shp.Id)

'If Wn.View.CurrentShowPosition = 3 Then Wn.View.GotoSlide 2

For Each shp In ActivePresentation.Slides(Wn.View.Slide.SlideID).Shapes
' Find the first media shape on the slide:
If shp.Type = msoMedia Then
'Debug.Print shp.Name
Set ply = Wn.View.Player(shp.Id)
Select Case ply.State
Case 0 'playing
ply.Pause
Case 1 'paused
ply.Play
Case 2 'stopped
ply.Play
Case 3 'not ready
ply.Play
End Select
Exit For
End If
Next shp



'
' SendKeys "{TAB}"
' SendKeys "%{P}"


End Sub