Asociar imagen a una celda en una condición macro

Hola eslait,

En lo personal no soy nada partidario de usar imagenes en Excel, pero ya que lo preguntas...

Suponiendo que en todo caso para que tu macro funcione tendras que adjuntar las imagenes al archivo de alguna manera...

Podrias evitar el uso de los macros. Prueba hacer lo siguiente:

1) Elige las primeras 4 filas y ajusta su altura de tal manera que sea igual o ligeramente superior a la altura de las imagenes (asegurate de que las imagenes sean de iguales dimensiones)
2) Ahora ajusta el ancho de la columna [B] de tal manera que sea igual o ligeramente superior al ancho de las imagenes.
3) Introduce todas las imagenes encajandolas exactamente dentro de las celdas [B1], [B2], [B3], [B4] respectivamente.
4) Ahora en el rango [A1:A4] introduce los nombres unicos correspondientes a cada una de las imagenes.
5) Ve al menu Insertar>Nombre>Definir... y crea un nuevo nombre con los siguientes parametros:
nombre: IMAGEN
se refiere a: =INDICE(Sheet1!$B$1:$B$4;COINCIDIR(Sheet1!$E$6;Sheet1!$A$1:$A$4;0))
6) Selecciona la celda [E6], ve al menu Datos>Validacion... y en la primera pestana introduce los siguienetes parametros:
permitir: Lista
fuente: =$A$1:$A$4
ahora podras eligir los nombres de una lista desplegable de la celda [E6].
7) Copia una de las imagenes
8) Selecciona la nueva imagen y en la barra de formulas escribe la siguiente formula y pulsa Enter:
=IMAGEN
9) Prueba seleccionar alguna opcion en el desplegable de la celda [E6]

Aqui te pongo un ejemplo: http://www.telefonica.net/web/kl/SS...lImage.xls

Saludos,
KL



"eslait" wrote in message news:

Hola,

quería saber si es posible poner una condición en macro tipo " if
cells(1,1).value=1 then " para cumplir la condición en otra celda de tal
manera que el resultado sea una imagen " then... cells(1,2).value= Y EN ESTA
CELDA PONDRÍAMOS LA IMAGEN".

Esto lo quiero hacer para un pequeño proyecto con cartas y para hacerlo más
visual. Si asocio un código a cada carta de la baraja española:

a1=as de oros
a2= dos de oros
a3= tres de oros
..
.

quiero que cuando se cumpla la condición en la que cierta casilla tenga el
valor "a1" me aparezca la imagen de la carta ocupando exactamente la celda
asignada.

gracias antipadas y un saludo

eslait

gracias kl por el interes.

bueno, teniendo en cuenta que no eres partidario de usar imagenes no por
ello cuando haya hecho todo aquello que me indicas te enviare el trabajo
realizado para que compruebes in sito el experimento que queria hacer.

he visto tu ejemplo y la idea me puede servir perfectamente para lo que
quiero hacer. Ahora solo queda plasmarlo y ajustarlo.
te ire informando sobre ello.

gracias

un saludo

eslait

"KL" escribio en el mensaje
news:
Hola eslait,

En lo personal no soy nada partidario de usar imagenes en Excel, pero ya que
lo preguntas...

Suponiendo que en todo caso para que tu macro funcione tendras que adjuntar
las imagenes al archivo de alguna manera...

Podrias evitar el uso de los macros. Prueba hacer lo siguiente:

1) Elige las primeras 4 filas y ajusta su altura de tal manera que sea igual
o ligeramente superior a la altura de las imagenes (asegurate de que las
imagenes sean de iguales dimensiones)
2) Ahora ajusta el ancho de la columna [B] de tal manera que sea igual o
ligeramente superior al ancho de las imagenes.
3) Introduce todas las imagenes encajandolas exactamente dentro de las
celdas [B1], [B2], [B3], [B4] respectivamente.
4) Ahora en el rango [A1:A4] introduce los nombres unicos correspondientes a
cada una de las imagenes.
5) Ve al menu Insertar>Nombre>Definir... y crea un nuevo nombre con los
siguientes parametros:
nombre: IMAGEN
se refiere a:
=INDICE(Sheet1!$B$1:$B$4;COINCIDIR(Sheet1!$E$6;Sheet1!$A$1:$A$4;0))
6) Selecciona la celda [E6], ve al menu Datos>Validacion... y en la primera
pestana introduce los siguienetes parametros:
permitir: Lista
fuente: =$A$1:$A$4
ahora podras eligir los nombres de una lista desplegable de la celda [E6].
7) Copia una de las imagenes
8) Selecciona la nueva imagen y en la barra de formulas escribe la siguiente
formula y pulsa Enter:
=IMAGEN
9) Prueba seleccionar alguna opcion en el desplegable de la celda [E6]

Aqui te pongo un ejemplo:
http://www.telefonica.net/web/kl/SS...lImage.xls

Saludos,
KL



"eslait" wrote in message
news:

Hola,

quería saber si es posible poner una condición en macro tipo " if
cells(1,1).value=1 then " para cumplir la condición en otra celda de tal
manera que el resultado sea una imagen " then... cells(1,2).value= Y EN
ESTA
CELDA PONDRÍAMOS LA IMAGEN".

Esto lo quiero hacer para un pequeño proyecto con cartas y para hacerlo
más
visual. Si asocio un código a cada carta de la baraja española:

a1=as de oros
a2= dos de oros
a3= tres de oros
..
.

quiero que cuando se cumpla la condición en la que cierta casilla tenga el
valor "a1" me aparezca la imagen de la carta ocupando exactamente la
celda
asignada.

gracias antipadas y un saludo

eslait