Cómo aleatorizar diapositivas en una presentación de PowerPoint

A veces, es posible que desees agregar un elemento sorpresa a tu presentación de PowerPoint mezclando las diapositivas al azar. Por ejemplo, tal vez esté creando una presentación para sus alumnos y desee mezclar algunas o todas las tarjetas didácticas.

De forma predeterminada, PowerPoint no tiene una función integrada para esto, pero puedes lograrlo usando una macro. En esta guía paso a paso, le mostraremos cómo mezclar diapositivas manualmente y cómo usar un código VBA para automatizar el proceso de mezcla aleatoria.

Cómo mezclar diapositivas manualmente en PowerPoint

En Microsoft PowerPoint, puedes mezclar manualmente las diapositivas de tu presentación para mostrarlas en orden aleatorio usando la vista "Clasificador de diapositivas". Si bien este método puede no ser tan aleatorio como el uso de macros, aún le permite reorganizar las diapositivas en un orden diferente.

Para mezclar y aleatorizar manualmente las diapositivas en una presentación de PowerPoint, siga los pasos a continuación.

Abre tu presentación de PowerPoint y ve a la pestaña Veren el menú de la cinta en la parte superior de la pantalla. Haga clic en él para acceder al menú Ver.

En el menú Ver, busque el grupo Vistas de presentación y seleccione la opción Clasificador de diapositivas. Esto cambiará tu presentación a la vista Clasificador de diapositivas, donde podrás ver todas las miniaturas de diapositivas a la vez.

En la vista Clasificador de diapositivas, es posible que vea miniaturas más grandes de las diapositivas. Si tiene muchas diapositivas en su presentación, haga clic en la opción Alejarrepresentada por el icono –en la barra de herramientas inferior para obtener una mejor descripción general de todas las diapositivas. Sigue haciendo clic en él hasta que puedas ver todas las diapositivas de la presentación en la pantalla a la vez.

Ahora puedes mezclar fácilmente las diapositivas haciendo clic en una diapositiva y arrastrándola a una posición aleatoria en la pantalla. Repita este paso con otras diapositivas para mezclarlas aleatoriamente. Continúe reorganizando las diapositivas hasta que esté satisfecho con el nuevo orden.

Tenga en cuenta que este método no garantiza un orden completamente aleatorio, ya que depende de su disposición manual. Si desea ver aparecer una diapositiva completamente aleatoria después de presionar el botón para mostrar la siguiente diapositiva, puede usar el método de macros de VBA para una mezcla aleatoria más precisa y automatizada..

Cómo aleatorizar diapositivas de PowerPoint usando un código VBA

Para asegurarte de que tus diapositivas de PowerPoint se reproduzcan en un orden completamente aleatorio, necesitarás utilizar un poco de codificación. La opción Macros en Microsoft Office PowerPoint le permite ejecutar códigos VBA para mezclar automáticamente las diapositivas de su presentación.

En este tutorial, le mostraremos cómo mezclar diapositivas sin duplicados. Para aleatorizar diapositivas en PowerPoint para que la misma diapositiva no se repita, siga los pasos a continuación.

Para comenzar, deberá acceder a la pestaña Desarrolladoren el menú de cinta de PowerPoint. Para hacerlo, siga la ruta Archivo>Opcioneso haga clic derecho en cualquier espacio vacío en el menú de la cinta y seleccione Personalizar la cinta. Esto abrirá un cuadro de diálogo.

En el cuadro de diálogo Opciones de PowerPoint, desplácese hacia abajo hasta encontrar la opción Desarrollador. Marque la casilla junto a Desarrolladory haga clic en Aceptar.

Ahora seleccione la pestaña Desarrolladory elija Macros. En la ventana emergente, puede insertar una nueva Macro. Elija un nombre para él (por ejemplo, Shuffleslides) y haga clic en Crearpara continuar.

Esto abrirá la ventana del Editor de Visual Basic, donde puede ingresar el código para aleatorizar las diapositivas de su presentación de PowerPoint.

Copie el siguiente código VBA y péguelo en la ventana abierta de Visual Basic.

Sub diapositivas aleatorias()

Primera diapositiva = 2

Última diapositiva = 5

Aleatorizar

'generar un no aleatorio entre la primera diapositiva y la última diapositiva'

VERDE:

RSN = Int((Última Diapositiva – Primera Diapositiva + 1) * Rnd + Primera Diapositiva)

Si RSN = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex, entonces vaya a GRN

ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)

Fin Sub

Después de pegar el código, notarás que la configuración predeterminada mezcla las diapositivas 2 a 5. Sin embargo, es posible que tu presentación no tenga exactamente cinco diapositivas, pero eso no es un problema. Puedes personalizar fácilmente esta parte del código para adaptarla a tus necesidades.

En el editor VBA, ajuste los números de diapositiva después de “Primera diapositiva” y “Última diapositiva” para especificar el rango de diapositivas que desea incluir en la reproducción aleatoria. De forma predeterminada, la mezcla comienza desde la diapositiva 2 para evitar incluir la diapositiva del título. Si desea excluir las diapositivas de título de la reproducción aleatoria, mantenga "FirstSlide = 2" como está..

Por ejemplo, supongamos que tiene una presentación con diez diapositivas y desea omitir la reproducción aleatoria de la diapositiva del título. En ese caso, establezca "Primera diapositiva = 2" y "Última diapositiva = 10". De esta manera, solo las diapositivas 2 a 10 se incluirán en el proceso de mezcla y la diapositiva de título no se verá afectada.

Ahora que has completado y personalizado el código para tu presentación, es hora de agregar botones de acción a las diapositivas. Para hacerlo, inserte cualquier forma en la primera diapositiva (o cualquier diapositiva que prefiera), luego seleccione la forma y navegue hasta Insertar>Acción>Ejecutar macro. Luego elija la Macro que acaba de crear. Esto activará la reproducción aleatoria de tus diapositivas durante el modo de presentación de diapositivas, proporcionando una experiencia atractiva para tu audiencia.

Guarde su archivo de PowerPoint en formato PPTM (presentación habilitada para macros) para conservar las macros que creó. Seleccione Archivo>Guardar comoy elija PPTM en la lista desplegable para asegurarse de que las macros que ha creado se conserven y no se pierdan.

Ahora ingrese al modo de presentación y haga clic en el botón de la primera diapositiva para mezclar las diapositivas aleatoriamente. Disfrute de su presentación dinámica y no repetitiva.

Cómo mezclar solo diapositivas pares o impares

En caso de que desee mezclar solo diapositivas específicas en su presentación, como diapositivas pares o impares, puede usar el siguiente código VBA para mezclar aleatoriamente solo las diapositivas pares o impares sin alterar el resto.

Para hacer eso, siga los pasos anteriores hasta llegar a la ventana del Editor de Visual Basic e inserte el siguiente código.

Sub diapositivas aleatorias()

EvenShuffle = True (reemplazar con false si solo se mezclan las diapositivas impares)

Primera diapositiva = 2 (debe ser un número par/impar según las necesidades)

Última diapositiva = 8

Aleatorizar

Para i = Primera diapositiva a última diapositiva Paso 2

Generar: 'generar un no aleatorio entre la primera diapositiva y la última diapositiva'

RSN = Int((Última Diapositiva – Primera Diapositiva + 1) * Rnd) + Primera Diapositiva

Si EvenShuffle = Verdadero entonces

Si RSN Mod 2 = 1, entonces GoTo genera

Más

Si RSN Mod 2 = 0 Entonces GoTo genera

Finalizar si

ActivePresentation.Slides(i).MoveTo (RSN)

Si i

Si i >RSN entonces ActivePresentation.Slides(RSN + 1).MoveTo (i)

Siguiente yo

End Sub

Cómo mezclar diapositivas en un bucle sin fin

El tutorial anterior demuestra cómo mezclar diapositivas de PowerPoint y reproducirlas en orden aleatorio sin repetición. Sin embargo, después de un bucle, se mantiene el mismo orden aleatorio a menos que vuelva a mezclar las diapositivas.

Para pasar automáticamente por todas las diapositivas en un bucle sin fin durante el modo de presentación de diapositivas con un nuevo orden aleatorio para cada bucle, puede utilizar el siguiente código. Asegúrese de cambiar los números después de FirstSlide = y LastSlide = para que se ajusten al número de diapositivas de su presentación.

Posición pública, rango, AllSlides() como número entero

Sub ShuffleAndBegin()

Primera diapositiva = 2

Última diapositiva = 6

Rango = (Última diapositiva – Primera diapositiva)

ReDim AllSlides(0 a rango)

Para i = 0 al rango

Todas las diapositivas(i) = Primera diapositiva + i

Siguiente yo

Aleatorizar

Para N = 0 al rango

J = Int((Rango + 1) * Rnd)

temperatura = Todas las diapositivas (N)

Todas las diapositivas (N) = Todas las diapositivas (J)

Todas las diapositivas (J) = temporal

Siguiente N

Posición = 0

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Posición)

Fin del subtítulo

Sub avance()

Posición = Posición + 1

Si Posición >Rango Entonces

Aleatorio y comienzo

Más

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Posición)

Finalizar si

End Sub