Insertar imagen segun valor en una celda

Respondido en emagister:

http://foros.emagister.com/tema-ins...9001-1.htm

Abraham

hola Alba

Trato de en una celda, en la cual hay 6 valores posibles, insertar una
imagen en función del valor de la celda anterior.

Más o menos lo que quiero, podría ser similar al siguiente caso,
tenemos en una celda la posibilidad de poner 6 alimentos distintos, lo
que trato es asociar la imagen de cada alimento en otra celda.

.

no estoy seguro de si esto te ayudara, pero al menos puede darte una
idea para aclarar un poco la consulta:

si quieres prueba este ej.:

en un libro nuevo (por si las moscas) inserta en la hoja 1 (pej)
varias imagenes. Si quieres adaptalas/colocalas en las celdas que
quieras. (menos en A1 (esta celda dejala visible)

haz boton secundario en la pestaña de la hoja (nombre) => elije ver
codigo => en la ventana blanca que se te habra abierto copia/ pega el
siguiente codigo =>

'--copia / pega desde aqui
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Byte
With Me
If Not Intersect(Target, .[a1]) Is Nothing Then
For n = 1 To .Shapes.Count
.Shapes(n).Visible = False
Next
On Error Resume Next
.Shapes(.Range("a1")).Visible = True
End If
End With
End Sub
'- hasta aqui

ahora vuelve a la hoja y escribe en A1 un nº igual o menor que el nº
de fotos que hayas insertado (o el nombre de la foto si lo conoces
<aunque esto ultimo no estoy seguro de si 1º deberias definir un
nombre para cada foto o te valen las del archivo> y dale a intro para
salir de esa celda

mira a ver si puede ir en el sentido de lo que buscas y si es asi si
quieres amplias los detalles (rangos, donde estan las imagenes 8o
donde quieres que esten, etc)

espero te ayude

un saludo
Ivan

PD: seguro que alguien puede ampliar la informacion sobre los riesgos
de la manipulacion de imagenes y la mejor forma de minimizarlos (yo
soy un desastre y aun no he conseguido que se me quede <comprenderlo
del todo>)