求个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?

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

...全文
346 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
CSDN-Ada助手 2023-01-13
  • 打赏
  • 举报
回复
您可以前往 CSDN问答-IT工具 发布问题, 以便更快地解决您的疑问

6,216

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧