Randomize the order of slides in a presentation

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
November 26, 2007 | Filed Under Tech | Leave a Comment 
Your Ad Here

Next Page →