ppt怎样随机播放？

shulove 发表于: 2009-10-01 22:06 来源: 扑奔PPT网

大侠帮忙一下！在powerpoint播放时，怎样用随机播放呢？
好像ppt我找不到这个功能，但是要是用ppt这一软件做些英语词汇课堂竞赛没这一功能就不好用了，在论坛里搜索时好像有人做了一个随机ppt软件，我又下载不来，哪个好心人帮帮我吧！

就是ppt播放时，怎样可以随机播放啊，随机，不是按页面顺序的

[ 本帖最后由 shulove 于 2009-10-2 21:57 编辑 ]

大家对 ppt怎样随机播放？的评论

amwyq 发表于 2009-10-02 08:27:29: 没看懂你的意思，你想要什么效果？
weide_yang 发表于 2009-10-03 05:38:53: 因本人也有类似的想法，我理解楼主可能是这样的意思：
比如，一个ppt文件中有100张幻灯片，是否可以通过执行一个宏来实现只随机显示其中的10张......
amwyq 发表于 2009-10-03 08:24:45: 用下面的代码可以实现随机播放6张幻灯片中的任意一张
Dim n
Private Sub CommandButton1_Click()
n = Int(6 * Rnd + 1)
With SlideShowWindows(1).View
.GotoSlide n
End With
End Sub
amwyq 发表于 2009-10-03 08:53:33: 用下面的宏可以自动演示N张幻灯片中的随机10张，但有可能重复演示同一张幻灯片N次
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim i, n

Sub abc()
i = 1
Do While i < 10
      Sleep 1000
      n = Int(10 * Rnd + 1)
      With SlideShowWindows(1).View
      .GotoSlide n
      End With
      i = i + 1
      DoEvents
Loop
End Sub
amwyq 发表于 2009-10-03 08:57:41: 代码中还有问题，大家自行修改吧：比如上面的代码只能演示N张幻灯片中的前1到10张，你只要稍微改一下代码就可以演示1到N张中的任意一张了，我不赘述了。。。。
wuhuaguo 发表于 2009-10-03 09:03:43: 看看这个小软件吧

[ 本帖最后由 wuhuaguo 于 2010-2-5 11:06 编辑 ]

412 KB, 下载次数: 374)

207 KB, 下载次数: 279)
amwyq 发表于 2009-10-03 09:32:31: 为什么不转发到论坛呢，注册，赚积分，下载，好麻烦哦。。。。。
shulove 发表于 2009-10-03 21:33:04: 就是啊，为什么不转发到论坛呢，注册，赚积分，下载，好麻烦哦。。。。。
amwyq 发表于 2009-10-03 21:53:14: 还是用我给你的代码控制吧，呵呵
hjppt2009 发表于 2009-10-03 22:09:21: Do While i < 10
如果我没看错，这个10可以改一下，就可以是前某张了。。。
amwyq 发表于 2009-10-03 23:14:37: 这个一目了然，两个变量分别控制什么，玩VBA的朋友没什么问题的？
weide_yang 发表于 2009-10-03 23:17:01: 非常感谢amwyq版主提供的代码，真是帮助我解决难题了！！！
ggomu 发表于 2009-10-04 00:27:06: 我是被逼的~~
ggomu 发表于 2009-10-04 00:27:23
ggomu 发表于 2009-10-04 00:27:42
ggomu 发表于 2009-10-04 00:30:07
ggomu 发表于 2009-10-04 00:31:00: TGTGTGTGTG
ggomu 发表于 2009-10-04 00:31:20: ZHUANAA AAAAAAA
ggomu 发表于 2009-10-04 00:36:12: 我也想问一下呢
ggomu 发表于 2009-10-04 00:36:34: 咳咳~~~~~~