ppt怎样随机播放？

jiushencang

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

aqddwlzx

没看懂你的意思，你想要什么效果？

user_bxpwy

因本人也有类似的想法，我理解楼主可能是这样的意思：
比如，一个ppt文件中有100张幻灯片，是否可以通过执行一个宏来实现只随机显示其中的10张......

user_ukkdy

用下面的代码可以实现随机播放6张幻灯片中的任意一张
Dim n
Private Sub CommandButton1_Click()
n = Int(6 * Rnd + 1)
With SlideShowWindows(1).View
    .GotoSlide n
    End With
End Sub

86762349

用下面的宏可以自动演示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

user_ujwdsqxe

代码中还有问题，大家自行修改吧：比如上面的代码只能演示N张幻灯片中的前1到10张，你只要稍微改一下代码就可以演示1到N张中的任意一张了，我不赘述了。。。。

user_ezuwflat

看看这个小软件吧
随机ppt软件[1].rar (412.17 KB, 下载次数: 248)

2016-4-11 08:34 上传

点击文件名下载附件
自编PPT随机播放器使用说明[1].rar (207.29 KB, 下载次数: 107)

2016-4-11 08:34 上传

点击文件名下载附件

qq52414514

为什么不转发到论坛呢，注册，赚积分，下载，好麻烦哦。。。。。

对你动了心

就是啊，为什么不转发到论坛呢，注册，赚积分，下载，好麻烦哦。。。。。

user_jsffw

还是用我给你的代码控制吧，呵呵