Hoy, he creado un formulario que aleatoriamente muestre una frase y una imagen de un banco con 30 frases diferentes de libros y 10 imágenes distintas.
- Nos ubicamos en la “Hoja2”, y escribimos cada frase. Yo use el rango de celdas A2:A31 (este será el banco del cual obtendremos las frases de los diferentes libros)
- Abrimos VBA e insertamos un Formulario, UserForm1 por defecto.
- Del cuadro de herramientas inserte un Label e Image para que ahí aparezcan la frase e imagen aleatoria respectivamente. Además inserte un CommandButton, al cual le di “¡Abre tu mente, abre un libro!” como caption , para cada que se haga clic en el mismo se realice el juego aleatorio de frase e imagen.
- Utilicé WorsheetFunction.RandBetween para obtener números aleatorios.
Descargar el archivo aquí: macros tarea