求高手帮助解决课件制作中的难题

wanghe410

问题：把附件中的FLASH嵌入PPT，并在该页PPT上设置一重播按钮。FALSH为一练习题，做完成之后，按重播按钮回到起始，即可再重新练习。请教大侠如何做？

user_swadsqfb

这问题我忙乎了两个晚上，是不是很难？请大侠出手相助！谢谢！

moookey

Sub RefreshSlide()
    On Error Resume Next
    With SlideShowWindows(1).View
        .GotoSlide .CurrentShowPosition
    End With
End Sub

user_tqkbo

楼上大哥，不行呀！

q774505813

Sub RefreshFLash()
    On Error Resume Next
    Dim strPath As String
    strPath = Slide1.ShockwaveFlash1.Movie
Slide1.ShockwaveFlash1.Movie = "http://"
  Slide1.ShockwaveFlash1.Movie = strPath
End Sub
这次应该可以了，百度搜的，呵呵

user_hyvle

不好意思，还是不行呀！谢谢！

user_qzgfq

有两种思路：
1、借助于对象插入媒体播放机，用其播放Flash；
2、利用VBA代码控制，只是我不会写代码。

go_dxy

俺弄好测试可以的呀，晚上发附件给你。

user_znycd

谢谢楼上大哥！

user_mxvpz

临时目录 重做.rar
不知道为什么，体积那么大。