Power Point - PRESENTACION DIAPOSITIVA ALEATORIA

Hola, he comprado unas presentacion con juegos de powerpoint, uno es el de 50x15. El caso es que trae una unica pregunta para cada nivel, quería saber si alguno sabe meterle un macro en VBA para que, por ejemplo, elija una de cada 5 por nivel de pregunta, para que no sean siempre las mismas. Yo he visto este codigo para aleatorio, pero claro habria que adaptarlo:

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


Si a alguno le interesa el tema y sabe como hacerlo, le puedo enviar el archivo abierto del juego . mi mail [email protected]

GRACIASSSS!