Slides in random order

[juuso]

I have bingo-presentation which includes numbers 1-100 (in random
order). Does PowerPoint 2003 have any option to show those slides in
random order everytime i start slideshow?

Best wishes, Juuso

 

[David M. Marcovitz]

Check out this entry from the PPT FAQ:

Randomize the order of a PowerPoint presentation
http://www.rdpslides.com/pptfaq/FAQ00429.htm

--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[juuso]

Thanks David! That worked!

Propably it would be quite easy to modify macro so that the ten first
slides (information) stayed in order and the rest (numbers) were randomized.
I tried hard, without any luck! Any help? Thanks.

Juuso

David M. Marcovitz kirjoitti:

 

[Guest]

The code would be something like

Private Sub CommandButton1_Click()
Randomize
ActivePresentation.SlideShowWindow _
..View.GotoSlide Int(Rnd * _
(ActivePresentation.Slides.Count - X)) + Y
End Sub

Where you substitute the first random slide number for Y and one number
less for X

So for you example

Private Sub CommandButton1_Click()
Randomize
ActivePresentation.SlideShowWindow _
..View.GotoSlide Int(Rnd * _
(ActivePresentation.Slides.Count - 10)) + 11
End Sub

 

[Guest]

That was for the control button version, just realized you mean the randomize
slides one!

It would be :

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