Cómo usar VBA para implementar la reproducción aleatoria de diapositivas en PPT
1. Inicie PowerPoint 2013 y abra la presentación. La presentación ha completado la creación de la página de título y la adición del título. Utilice el método introducido en el consejo 429 para agregar un control de botón a la diapositiva y cambiar el valor de la propiedad "Título" del control en el panel "Propiedades".
2. Haga clic derecho en el botón de control en la diapositiva, seleccione el comando "Ver código" en el menú contextual e ingrese el código del programa en la ventana de código del editor de Visual Basic abierto. El código del programa específico es el siguiente.
01 Private Sub CommandButton1_Click()
02 Dim i como entero,n como entero'definir variables
03 i=Int((6*Rnd)+ 1)'Obtener un número aleatorio entre 1 y 6
04 Randomize'Inicializar un número aleatorio
05 i=Int((6*Rnd)+1)'Generar 1 nuevamente después inicialización ~6 números aleatorios
06 n=i+1' asigna un valor a la variable n, que es el número de diapositiva
07 con SlideShowWindows(1)
08.View.GotoSlide n'Saltar a la diapositiva con el número especificado
09 Terminar con
10 Subir final
3. , péguelo en la segunda diapositiva y luego cambie el valor de la propiedad Título del control en el panel Propiedades.
4. Haga clic derecho en el botón de control en la diapositiva y seleccione el comando "Ver código" en el menú contextual. Agregue un controlador de eventos Click para el botón en la ventana de código del editor abierto de Visual Basic. El código del programa específico es el siguiente.
01 Private Sub CommandButton1_Click()
02 Con SlideShowWindows(1)
03 .View.GotoSlide 1'Saltar a la primera diapositiva
p>
04 Finalizar con
05 Finalizar sub
5 Copie el botón de la segunda diapositiva a la diapositiva siguiente, utilizando el mismo método que en el paso ④ Después de agregar. los respondedores de eventos a estos botones, presionen la tecla "F5" para reproducir la diapositiva, hagan clic en el botón "Pregunta" en la página de título y PowerPoint saltará aleatoriamente a la siguiente diapositiva para mostrar la pregunta. Haga clic en "Volver a la página de inicio"; en la página de preguntas, como se muestra en la Figura 6, volverá a la página de preguntas.
Espero que a través de los pasos anteriores, puedas aprender a crear diapositivas PPT aleatorias.