我使用 Flash CS4 创建 SWF。我可以嵌入它们,并且它们可以正常工作,但如果我保存并关闭演示文稿,则在重新打开时它们不会播放。
但是,如果我手动将“播放”属性更改为“True”,它们就会播放。不幸的是,如果我保存并重新打开演示文稿,“播放”始终为 false。
有什么建议么?
答案1
我最终使用带有此代码的 Visual Basic for Applications 解决方案,如果有人稍后阅读此问题,它应该可以适应其他人的用途:
Sub OnSlideShowPageChange()
If ActivePresentation.Slides(ActivePresentation.SlideShowWindow.View.CurrentShowPosition).Name = "Countdown" Then
Dim obj As ShockwaveFlash
Set obj = ActivePresentation.Slides("Countdown").Shapes("Timer1").OLEFormat.Object
obj.Playing = True
obj.Rewind
obj.Play
End If
If ActivePresentation.Slides(ActivePresentation.SlideShowWindow.View.CurrentShowPosition).Name = "Countdown2" Then
Dim obj2 As ShockwaveFlash
Set obj2 = Nothing
Set obj2 = ActivePresentation.Slides("Countdown2").Shapes("Timer2").OLEFormat.Object
obj2.Left = -999
MsgBox ("Its x position is now " & obj2.Left)
End If
End Sub
我将两张包含 Flash 影片的幻灯片命名为“倒计时”和“倒计时 2”,将两部影片命名为“计时器 1”和“计时器 2”。当进入指定的幻灯片时,以下代码会重置这些影片的关键属性。