En primer lugar debemos insertar las imágenes en la hoja y darles nombres adecuados:

1. Seleccionamos la primera imagen.

2. Hacemos clic en el [Cuadro de nom­bres], arriba y a la izquierda de la hoja (donde normalmente aparecen las coor­denadas de la celda actual).

3. Escribimos el nombre elegido para esa imagen.

4. Oprimimos la tecla <Enter>.

Por otra parte, en un rango auxiliar, escribimos los nombres de las imáge­nes. Ese será el rango de entrada para una lista desplegable:

1. Ponemos el cursor en la celda donde que­remos obtener la lista. Por ejemplo, [A1].

2. Tomamos las opciones [Datos/Validación].

3. En la ficha [Configuración], dentro de [Permitir:], indicamos [Lista].

4. Dentro de [Origen:] seleccionamos el rango auxiliar con los nombres de las imágenes.

5. Hacemos clic en [Aceptar].

Con esto podemos elegir las distintas imágenes de la lista presente en la celda [A1]. Lo que nos falta es una macro que oculte todas las imágenes, excepto la que hayamos seleccionado:

1. Tomamos las opciones [Herramientas/Macro/Editor de Visual Basic].

2. Una vez dentro del editor, tomamos las opciones [Ver/Explorador de pro­yectos].

3. Sobre el Explorador, hacemos doble clic en la entrada correspondiente a la hoja actual. Se abrirá una ventana de texto.

4. En esa ventana, escribimos la siguien­te macro:

Private Sub Worksheet_Change(ByVal Target As Range)

For i = 10 To 12

foto = Cells(i, “A”)

ActiveSheet.Shapes(foto).Visible = False

Next

ActiveSheet.Shapes([A1]).Visible = True

End Sub

Esta macro se ejecuta automáticamente cada vez que cambia el contenido de algu­na celda. Por ejemplo, por seleccionar una imagen de la lista desplegable. La macro le da el valor “falso” a la propiedad Visible de todas las imágenes, ocultándolas. Los nombres de las imágenes los toma del rango usado para la lista desplegable. Luego hace visible la imagen que hayamos seleccionado en [A1].

Las imágenes insertadas en esta hoja tienen los nombres indicados en el rango [A10:A12].

Al elegir un nombre de la lista, se ejecutará la macro que oculta todas las imágenes y luego hace visible la seleccionada en la lista.

Este es el [Cuadro de nombres]. Ahí aparece el nombre de la imagen actualmente seleccionada y podemos modificarlo.
Las imágenes insertadas en esta hoja tienen los nombres indicados en el rango [A10:A12].
Al elegir un nombre de la lista, se ejecutará la macro que oculta todas las imágenes y luego hace visible la seleccionada en la lista.