Sounds like it's not Slide1 or the name is wrong. The code is correct
Assuming it's in show view try (change name of course)
Code:
Sub FixFlash()
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
osld.Shapes("myFlash").OLEFormat.Object.Playing = True
End Sub