Я закончил тем, что использовал решение Visual Basic для приложений с этим кодом, который должен быть адаптирован для использования другими людьми, если кто-то прочтет этот коджинг позже:
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". Приведенный ниже код сбрасывает критические свойства этих фильмов при вводе указанных слайдов.