A continuación describiremos paso a paso esta trivia y un catálogo de imágenes.En este ejemplo nos enfocaremos en "Italia".
Puedes descargar en el siguiente enlace: Trivia Italia
Primero para la creación de la trivia se recomienda hacer uso del "ComandButton" y "MsgBox"utilizaremos los siguientes macros:
Nos apoyaremos del Userform para un mejor orden.
EJEMPLO:
Para preguntar puedes utilizar el userform, y optar por usar OptionButton como alternativas , entonces la macro que utilizarías sería:
Private Sub OptionButton2_Click()
MsgBox "Lo siento, intentalo de nuevo"
End Sub
Además podrías añadir un MsgBox indicando si la opción seleccionada es o no correcta.
En el siguiente Userform agregamos un TextBox y le añadimos un ComandButton de nombre Pista, en el cual solo colocamos una aproximación de la respuesta correcta.
-Catálogo de Imágenes
En este caso mostraremos lugares turísticos de Italia .Para esto necesitaremos hacer una lista , buscar imágenes y guardar éstas imágenes en una carpeta de preferencia con un nombre anteriormente no utilizado.Entonces:
En la imagen se muestra la lista con números , éstos mismo se usarán para las imágenes .Posteriormente cada vez que se de clic en ellos se podrá observar la imagen.Pero antes debemos definir el área en donde aparecerán estas imagenes y el tamaño que tendrán , para esto vamos a la barra del desarrollador>INSERTAR>CONTROLES ACTIVEX>Imagen ControlActiveX
Y el macro que se hará es el siguiente:
Private Sub worksheet_selectionchange(ByVal target As Range)
On Error Resume Next
If Not Intersect(target, Range("C5:C11")) Is Nothing Then
Image1.Picture = _
LoadPicture("Aquí colocarás la ruta de donde viene tu imagen")
End If
End Sub
Recordemos que en ruta es importante ser exactos en la ubicación y evitar tener alguna otra carpeta que contenga las imágenes con el mismo nombre.