Visual Basic - macro en excel para pegar imagenes

Life is soft - evento anual de software empresarial
   
Vista:

macro en excel para pegar imagenes

Publicado por karen giovanna yañez de la cruz karen_night10@hotmail.com (1 intervención) el 16/05/2011 20:33:12
hola
tengo un problemita espero puedan ayudarme y se los agradecere

necesito hacer una macro en excel que me mande una imagenes que estan en el mismo libro,
en la hoja 1 tengo espacios donde el usuario debe escribir un numero y en la hoja 2 tengo las imagenes (36) y si el usuario pone un numero (1 al 36) me debe de mostrar la imagen que tenga ese numero
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

macro en excel para pegar imagenes

Publicado por Christian (666 intervenciones) el 07/06/2011 22:51:00
Te paso a contar Karen lo que hice.
Vamos a suponer que en la hoja 2 tenemos 4 imagenes.



Function MostrarPicture(Numero As Integer)
If Numero < Sheet2.Shapes.Count Then ' verifica que el numero no sea mayor a las imagenes
Sheet2.Shapes(Numero).Select ' selecciono la imagen segun el numero
Selection.Copy ' copio la seleccion
Sheets("Sheet1").Select ' me paso a la hoja 1
Range("B2").Select ' selecciono la celda B2
ActiveSheet.Paste 'copio la imagen en la celda B2

Else
MsgBox "El numero de imagen no existe"
End If
End Function


Bueno aca un ejemplo de como llamarias a la funcion
Sub arranca()
MostrarPicture (3)
End Sub

Cualquier cosa avisame que lo vemos, no es dificil.

saludos.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar