Vincular Imágenes con Excel mediante un Frm

Lo más fácil, creo que sería que crearas hipervínculos hacia los archivos de
imagen de cada producto, pero una alternativa un poco más elegante podría ser
trabajar con formularios. Considerando esta segunda posibilidad, te
recomiendo lo siguiente:

Reune todas las imagenes de tus productos en una sola carpeta. Voy a
suponer que es la carpeta C:\ProdImagen. Luego, pones el nombre de la imagen
de cada producto en una columna (voy a suponer que es la F). El proceso
consistirá en dos pasos: primero crear un formulario que capture el nombre de
la imagen y la vaya a buscar en la carpeta adecuada, y segundo, modificar el
evento SelectionChange, para que cuando hagas clic o te posiciones en una
celda de la columna F, se muestre automáticamente la imagen.

Vamos con la primera parte:

Crea un formulario (Supondré que se llama UserForm1), insertas un control
"Imagen", (supongo que el control se llama Image1) y en el código del
formulario agregas lo siguiente:

Private Sub UserForm_Initialize()
Dim Pic As String
Pic = "C:\ProdImagen\" & ActiveCell.Value
Image1.PictureSizeMode = 3
Image1.Picture = LoadPicture(Pic)
End Sub

Ahora con la segunda parte:
Haces clic derecho en la hoja donde tienes los productos, y seleccionas Ver
Código. Luego pegas lo siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not (Intersect(Target, [B:B]) Is Nothing) Then
UserForm1.Show
End If
End Sub




"" escribió:

Hola...

Soy Carlos Alberto y tengo una pequeña dificultad... se trata de lo
siguiente:

Tengo una base de datos en excel, la cual contiene información de cada
uno de los productos que manejamos en el almacén. Y quisiera que al
hacer click con el ratón u otro procedimiento sobre el registro, se
abra un Frm mostrando la imagen del producto.

Quisiera saber si me pueden ayudar, cualquier idea, sugerencia.. será
bien recibida... Gracias...

David...

Gracias. Voy a poner en práctica tu idea.

Saludos

David

Tu ayuda fue muy valiosa... Gracias
Le hice unas modificaciones, y funciona muy bien. Esto es lo que hice:

En lugar de usar el Control de Imagen en un Formulario, lo agregue a la
plantilla que utilizo para dar de alta o consultar los productos que
manejo en el almacén, y agregue el siguiente código en la hoja donde
se encuentra dicha plantilla:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pic As String

Pic = "C:\ProdImagen\" & Range("A1").Value & ".jpg"
Image1.Picture = LoadPicture(Pic)

End Sub

Cada vez que cambio el clave del producto en la celda A1,
automáticamente aparece la imagen en el Control de Imagen... Como
puedes ver es practicamente lo que me sugeriste. Muchas Gracias...

Saludos desde México