移动powerpoint幻灯片时,操作按钮宏会发生变化

时间:2018-06-18 06:15:50

标签: vba powerpoint

我有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

感谢您的帮助

0 个答案:

没有答案