wanghe410 发表于 2016-4-12 13:24:13

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

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

user_swadsqfb 发表于 2016-4-12 14:56:51

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

moookey 发表于 2016-4-12 15:00:02

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

user_tqkbo 发表于 2016-4-12 15:09:05

楼上大哥，不行呀！

q774505813 发表于 2016-4-12 15:45:38

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 发表于 2016-4-12 16:33:33

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

user_qzgfq 发表于 2016-4-12 17:08:19

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

go_dxy 发表于 2016-4-12 17:12:12

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

user_znycd 发表于 2016-4-12 17:15:07

谢谢楼上大哥！

user_mxvpz 发表于 2016-4-12 17:31:02


临时目录 重做.rar
不知道为什么，体积那么大。
页: [1] 2
查看完整版本: 求高手帮助解决课件制作中的难题