Excel - imagenes asociadas

Mensajes realizados anteriormente (No estaban la última vez que entraste)

imagenes asociadas
Jose (25/11/2014 07:49:22)643 visitas
2 respuestas

imagenes asociadas
LaO (25/11/2014 17:05:02)

imagenes asociadas
Nolberto (25/11/2014 19:20:07)

imagenes asociadas

Publicado por Jose (1 intervención) el 25/11/2014 07:49:22

Saludos amigos,
tengo un pequeño almacen gestionado en varias hojas Excel, y en una carpeta fotos de cada cosa que compone el almacen, me gustaría hallar una forma de que al seleccionar un registro me aparezca mediante un botón, un enlace o una ventana fija la foto del material.
gracias a todos

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

imagenes asociadas

Publicado por LaO (67 intervenciones) el 25/11/2014 17:05:02

Hola José,

Para lograr lo que quieres te indico los pasos que puedes seguir y adaptarlo como mejor se ajuste a tus necesidades. En este ejemplo sencillo asumimos que tienes una hoja de productos llamada "Store01" con dos columnas;

ID: Identificación del archivo con su extensión : Ej-> Producto01.jpg
Descripción: Nombre del producto

01- Crear un formulario (frmProducts) al que le adicionas un control Image(imgPicture) y un control CommandButton (Botón)

02- Crear un módulo en el que asignarás el siguiente código:
------------------------------------------------------------------------------>

Option Explicit

Public Sub sbCargarPhoto()

On Error GoTo x

Dim sPath As String

Dim sPicture As String

'vars

sPath = ThisWorkbook.Path

sPicture = ThisWorkbook.Sheets("Store01").Cells(ActiveCell.Row, 1)

'load picture

frmProducts.imgPicture.Picture = LoadPicture(sPath & "\tucarpeta\" & sPicture)

Exit Sub

x:

MsgBox "Error : " & Err.Description, vbCritical, "Mensaje"

End Sub

Public Sub sbCargarForm()

'loading form

frmProducts.Show

End Sub

03- En el evento Click del botón en el formulario llamarás la rutina creada en el módulo:
------------------------------------------------------------------------------>