¿Se pueden visualizar jpg en un Userform de forma dinámica?
Pongamos que tengo una carpeta con jpg's con referencias distintas.
Con un Userform quiero visualizar el jpg según la referencia que introduzco en un combobox.
¿Existen funciones capaces de conseguir mi objetivo?
Gracias como siempre y saludos
1 respuesta
Respuesta de Dante Amor
1
Te anexo el ejemplo.
Los nombres de las referencias están en la columna A
El combo se llena con esas referencias
En la macro hay que cambiar C:\trabajo\ por el nombre de tu carpeta.
Este es el código:
Private Sub ComboBox1_Change()
'Por.Dante Amor
'Al Cambiar el Combobox, cambia la imagen de acuerdo al nombre seleccionado
ruta = "C:\trabajo\"
imagen = ComboBox1 & ".jpg"
If Dir(ruta & imagen) <> "" Then
Image1.Picture = LoadPicture(ruta & imagen)
Else
imagen = ComboBox1 & ".jpeg"
If Dir(ruta & imagen) <> "" Then
Image1.Picture = LoadPicture(ruta & imagen)
Else
MsgBox "Imagen no existe"
End If
End If
End Sub
Private Sub UserForm_activate()
'Por.Dante Amor
'Se cargan los nombres de imágenes en el combo
ComboBox1.RowSource = "A1:A" & Range("A" & Rows.Count).End(xlUp).Row
End SubTambién te anexo mi archivo para que veas el funcionamiento.
https://www.dropbox.com/s/hy4w3vsyec4zdlk/imagen%20en%20image1.xlsm?dl=0
Saludos. Dante Amor
