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

[LL880815]

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

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？

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