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 nombres], arriba y a la izquierda de la hoja (donde normalmente aparecen las coordenadas 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ágenes. Ese será el rango de entrada para una lista desplegable:
1. Ponemos el cursor en la celda donde queremos 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 proyectos].
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 siguiente 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 alguna 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.
