Cargar una imagen al dar click en un listbox
Realizo una búsqueda donde al escribir en un textbox me filtra unos nombres y al seleccionar el nombre respectivo me carga otros textbox con datos más una cuadro de imagen con una foto. He utilizado el siguiente código para eso:
Private Sub LIST_NOMBRES_Click()
'Pone datos en los textbox
Dim fila, p
fila = LIST_NOMBRES.List(LIST_NOMBRES.ListIndex, 1)
Set p = Sheets("PERSONAL")
NOMBRES_APELLIDOS = p.Cells(fila, "A")
CEDULA_CODIGO = p.Cells(fila, "B")
CARGO = p.Cells(fila, "C")
EMPRESA = p.Cells(fila, "D")
TELEFONO = p.Cells(fila, "E")
EMAIL = p.Cells(fila, "F")
FECHA_CONTRATACION = p.Cells(fila, "G")
'fija la foto
ARCHIVO_FOTO = LIST_NOMBRES.Column("H", LIST_NOMBRES.ListIndex)
FOTO.Picture = LoadPicture(p.Cells(i, "H"))
End SubLamentablemente me causa un error en la linea donde la variable ARCHIVO_FOTO
"error 381, no se puede obtener la propiedad column. Indice de matriz de propiedades no válido"
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Private Sub LIST_NOMBRES_Click()
'Pone datos en los textbox
On Error Resume Next
Dim fila, p, ruta_archivo
fila = LIST_NOMBRES.List(LIST_NOMBRES.ListIndex, 1)
Set p = Sheets("PERSONAL")
NOMBRES_APELLIDOS = p.Cells(fila, "A")
CEDULA_CODIGO = p.Cells(fila, "B")
CARGO = p.Cells(fila, "C")
EMPRESA = p.Cells(fila, "D")
TELEFONO = p.Cells(fila, "E")
EMAIL = p.Cells(fila, "F")
FECHA_CONTRATACION = p.Cells(fila, "G")
'fija la foto
ruta_archivo = p.Cells(fila, "H")
If Dir(ruta_archivo) <> "" Then
FOTO.Picture = LoadPicture(ruta_archivo)
End If
LIST_NOMBRES.Visible = False
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias! ¡Gracias!
Que estaba haciendo mal Dante??
:-/
No existe la columna "H" en el listbox, son números
LIST_NOMBRES.Column("H", LIST_NOMBRES.ListIndex)
