我有24张幻灯片的演示文稿,每张幻灯片上都有一些带宏的动作按钮。
我还有一个代码可以在每次有人开始演示时随机播放幻灯片,并且工作正常。
我的问题是,在随机播放幻灯片时,按钮上指定的宏也会发生变化。
有没有办法确保每个幻灯片都可以在不更改动作按钮宏的情况下进行洗牌?
随机播放的代码:
Sub shuffleRange()
Dim Iupper As Integer
Dim ilower As Integer
Dim ifrom As Integer
Dim Ito As Integer
Dim i As Integer
Iupper = 21
ilower = 2
If Iupper > ActivePresentation.Slides.Count Or ilower < 1 Then GoTo Err
For i = 1 To 2 * Iupper
Randomize
ifrom = Int((Iupper - ilower + 1) * Rnd + ilower)
Ito = Int((Iupper - ilower + 1) * Rnd + ilower)
ActivePresentation.Slides(ifrom).MoveTo (Ito)
Next i
Exit Sub
Err:
MsgBox " Shuffle failed", vbCritical
End Sub
感谢您的帮助