6,216
社区成员




网上抄了一段,我修改了一下页数和时间
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?
谢谢大佬了,本人不是学计算机的。纯小白