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 
Your Ad Here

Comments

Leave a Reply

You must be logged in to post a comment.

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