Power Point - PRESENTACION DIAPOSITIVA ALEATORIA

   
Vista:

PRESENTACION DIAPOSITIVA ALEATORIA

Publicado por pegasus6464 (2 intervenciones) el 19/05/2008 10:39:41
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 pegasus6464@hotmail.com

GRACIASSSS!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder