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...