求个PPT中vba可以实现手动随机不重复完整播放PPT

2022-03-18 14:29:34 405 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

一些活动中使用的不重复抽奖PPT PPT还可以设置自动播放，按照预设的时间间隔自动进行下一轮抽奖，使得整个过程更加流畅。不重复抽奖PPT的制作需要注意以下几点：1. 数据完整性：确保所有参与者的姓名或编号准确无误地录入Excel。立即下载

网上抄了一段，我修改了一下页数和时间

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim i, n
Private Sub CommandButton1_Click()
i = 1
Do While i < 500
Sleep 7200
Randomize
n = Int(501 * Rnd + 1)
With SlideShowWindows(1).View
.GotoSlide n
End With
i = i + 1
DoEvents
Loop
End Sub

貌似只能随机自动播放，如何做到不是自动，而是转成手动且随机播放每一张ppt？

谢谢大佬了，本人不是学计算机的。纯小白

...全文