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

lxy090 · 发表于 2011-2-20 12:05

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

lxy090 · 发表于 2011-2-20 15:34

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

wjhere · 发表于 2011-2-21 22:21

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

lxy090 · 发表于 2011-2-22 11:27

楼上大哥，不行呀！

wjhere · 发表于 2011-2-22 12:47

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

lxy090 · 发表于 2011-2-22 13:27

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

ly27ssh · 发表于 2011-2-22 13:44

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

wjhere · 发表于 2011-2-22 15:24

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

lxy090 · 发表于 2011-2-22 16:36

谢谢楼上大哥！

wjhere · 发表于 2011-2-22 17:33

http://lrcdiandu.ys168.com/
临时目录重做.rar
不知道为什么，体积那么大。

		自动登录	找回密码
密码			免费注册

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

自己顶一下

谢谢楼上大哥！

回复楼上

回复 6楼 lxy090 的帖子

谢谢楼上大哥！