Daily Packet

Randomize the order of slides in a presentation

Posted on November 26, 2007. Filed under: 0x50-rogram, 0x57-indows |

This macro from PowerPoint MVP Brian Reilly will randomize the order of slides in a presentation:

Sub sort_rand()

    Dim i As Integer
    Dim myvalue As Integer
    Dim islides As Integer
    islides = ActivePresentation.Slides.Count
    For i = 1 To ActivePresentation.Slides.Count
        myvalue = Int((i * Rnd) + 1)
        ActiveWindow.ViewType = ppViewSlideSorter
        ActivePresentation.Slides(myvalue).Select
        ActiveWindow.Selection.Cut
        ActivePresentation.Slides(islides - 1).Select
        ActiveWindow.View.Paste
    Next

End Sub

Technorati Tags: Randomize, Powerpoint, FlashCard

Recently on Daily Packet…