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 →

backup blogging web hosting transition server space Tech Ed SEA 2008 Windows XP Service Pack 3 WinFax Tech·Ed SEA 2008 Limited Edition T-shirt Tweak Putty Registry Wine Security IP freebies Microsoft TechEd SEA 2008 hosting contest phishing VMware DHCP Freeware Photography router Network Cisco Microsoft Ubuntu Linux