como llamar una imagen de otra hoja

En un libro nuevo, en la Hoja2, escribe 50 en C1 y 50 en C2. Estos valores
serán la posición vertical y horizontal de la imagen.

En la Hoja1, crea una autoforma en blanco. Asígnale el nombre NoEncontrado
y agrégale el texto "No Encontrado". Esta será la imagen a mostrar cuando no
exista el nombre de la imagen buscada.

En la Hoja1, inserta unas cuantas imágenes, y asígnale un nombre a cada una.

Haz clic derecho en el separador de la Hoja2, selecciona Ver Código y pega
lo siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Sheets("Hoja2").Shapes("Imagen").Delete
Sheets("Hoja1").Shapes("NoEncontrado").Copy
Sheets("Hoja1").Shapes(Sheets("Hoja2").Range("A1").Value).Copy
Sheets("Hoja2").Paste
Selection.Top = Sheets("Hoja2").Range("C1").Value
Selection.Left = Sheets("Hoja2").Range("D1").Value
Selection.Name = "Imagen"
Selection.Placement = xlFreeFloating
Range("A1").Select
End If
End Sub

En la Hoja2, haz clic en A1, escribe el nombre de alguna de las imágenes que
insertaste en la Hoja1.

Por último, si es lo buscado, estúdialo y lo adaptas a tu situación.

PD:
¡2500 imágenes! =S
Vas a tener un archivo muy cargado. ¿No sería mejor manejarlo como
hipervínculos o modificando la propiedad Fill.UserPicture? Considera algo
como esto para la Hoja2, donde has creado una autoforma llamada Producto:

sheets("Hoja2").shapes("Producto").fill.userpicture "C:\Catalogo\PC0192.jpg"




"Edixon" escribió:

Hola como estan todos, necesito una ayuda de su parte por favor, lo que
quiero hacer es que en una hoja de excel voy a colocar unas 2500
imagenes apróximadamente con un nombre distinto que las identifique a
cada una, en otra hoja quiero que cuando yo introduzca un nombre y
este corresponda a una de las imagenes que estan en la otra hoja
aparezca la imagen que corresponda a dicho nombre, espero haberme
expresado bien, de antemano muchas gracias por su ayuda.