Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » imagenes asociadas

Excel - imagenes asociadas

Volver
Nuevo Tema
Filtrado por el usuario: wordexperto.com
<<>>
Filtrado por el usuario 'wordexperto.com' (Eliminar fitro)
 
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de LaO

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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:
------------------------------------------------------------------------------>

1
2
3
4
5
6
Private Sub btnLoad_Click()
 
'loading photo

sbCargarPhoto
 
End Sub

04- Con la rutina sbCargarForm() cargas el formulario para visualizar tu foto.

Un saludo,
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