Work-around for hang-up in powerpoint by VBA, use at your own risk.
This module is tested only on PowerPoint2003@Window XP

"Class Module"
---------------------------------------------------------------
Public WithEvents appevent As Application

Private Sub appevent_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
  Dim sld As Slide
  Set sld = Wn.View.Slide
  Dim s As shape
  For Each s In sld.Shapes
    If s.Name Like "ShockwaveFlash*" Then
      Dim swf As ShockwaveFlash
      Set swf = s.OLEFormat.Object
      Dim fn As String
      fn = swf.Movie
      With swf
        .Movie = "dummy"
        .Movie = fn
        .WMode = "Direct"
        .FrameNum = -1
        .Playing = True
      End With
    End If
  Next
End Sub
---------------------------------------------------------------

"Module"
---------------------------------------------------------------
Dim myobject As New Class1

Sub startEvents()
  Set myobject.appevent = Application
End Sub

Sub stopEvents()
  Set myobject.appevent = Nothing
End Sub
----------------------------------------------------------------

(If "Movie" property is modified, powerpoint automatically reload the swf
movie".)

To make enable this function, run macro "startEvents()".

See http://support.microsoft.com/kb/234184/en-us for basic usage of PPT VBA.
