Insertar imágenes con macros.

08/05/2006 - 17:11 por eslait | Informe spam

Estoy haciendo mis pinitos con las macros programando con Vba,

El tema es que estoy haciendo simulaciones de juegos de azar. Quisiera saber
si es posible a través de macros que
cuando me salga un número al azar este me salga con una imagen en la
pantalla de excel.

Ejemplo:
imaginemos que simulo el lanzamiento de un dado. Puedo hacer que el la celda
A1 me apareciera un valor del 1 al 6.
si sale el 3, representaría la cara del dado con el valor 6. Pero quiero
hacerlo más gráfico, es decir...que si sale el 3 pues que apareciera una
pequeña imagen en la celda A1 que represente ese lado del dado.
Claro, esto es un ejemplo del dado pero querría aplicarlo a los dados, a las
cartas, a una moneda, etc..

Se puede hacer esto? Si se pudiera y me dierais algunas claves de como
conseguirlo...luego yo ya buscaría por internet el procedimiento que me
dijerais.

gracias anticipadas.

Eslait

Siga el debate

11 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Daniel SL.

08/05/2006 - 18:11 | Informe spam

Hola Francisco seria tan amable de inviarme una copia a mi correo

muchas gracias.

Un saldo,
Daniel

Responder a este mensaje

#2 Francisco MTY

08/05/2006 - 18:32 | Informe spam

Tiene algun email donde mandarte un archivo de ejemplo de display de
imagenes segun celda, en tu caso solo cambias el tipo de condicion.

Saludos

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Responder a este mensaje

#3 Francisco MTY

08/05/2006 - 19:41 | Informe spam

anexo link de archivo ejemplo.
http://mx.geocities.com/gozalo_ya/M...agenes.xls

Con la nota de que es aplicado a cada caso segun las necesidades, uds mismos
lo tienen que modificar. En lo personal ese fue de los primeros que realize
segun un ejemplo sacado de otro foro y asi me intereso realizarlo.
Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Responder a este mensaje

#4 Daniel SL.

08/05/2006 - 19:52 | Informe spam

Gracias por publicarlo.

Un Saludo,
Daniel.

Responder a este mensaje

#5 eslait

08/05/2006 - 20:23 | Informe spam

hola Francisco,
he visto tu ejemplo y, aunque la idea es buena, no es realmente lo que estoy
buscando.
mi idea es:
1º obtener un valor aleatorio, p.ej. mivalor = Int((2 * Rnd) + 1)
de este resultado obtenemos dos resultados (1,2) de forma aleatoria.
2º de acuerdo al resultado, imaginemos que el 1=cara y 2=cruz y ponemos una
condición
if mivalor=1 then
cells(1,1).value= """" que salga en la casilla A1 una imagen de la cara de
una moneda"""
else
cells(1,1).value= """ que salga en la casilla A2 una imagen de la cruz de
una moneda"""

Ahora bien, ese valor de la imagen no sé si será posible recuperarla desde
la misma hoja de cálculo.

Pero es importante que la imagen esté dentro de la casilla y no como un
objeto insertado en la hoja.
Quizás estoy pidiendo cosas imposibles y por eso pregunto.
De todas las maneras seguiré buscando y guardaré tu correo por si encontrara
algo que te pueda interesar.

Un saludo

"Francisco MTY" escribió en el mensaje
news:OI$Q%

anexo link de archivo ejemplo.
http://mx.geocities.com/gozalo_ya/M...agenes.xls

Con la nota de que es aplicado a cada caso segun las necesidades, uds
mismos
lo tienen que modificar. En lo personal ese fue de los primeros que
realize
segun un ejemplo sacado de otro foro y asi me intereso realizarlo.
Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

12 3

Busqueda sugerida