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

LL880815 2022-03-18 14:29:34

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

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?

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

...全文
105 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
相关推荐
发帖
Microsoft Office应用
加入

6176

社区成员

Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
申请成为版主
帖子事件
创建了帖子
2022-03-18 14:29
社区公告
暂无公告