Excel problema con instruccion errror 53
Quien me puede ayudar me aparece un error 53 archivo no encontrado tengo un combo con listado de empleados, al seleccionar un nombre me deberia de mandar la fotografia de esa persona, las fotos las tengo en la ruta c:/ excel/fotos
y esta es la instruccion que tengo en el combo
Private Sub Combonombre_Change()
ruta = ActiveWorkbook.Path
imagen = Combonombre.List(Combonombre.ListIndex) & ".jpeg"
ruta_e_imagen = ruta & "\" & imagen
Imagen1.Picture = LoadPicture(ruta_e_imagen) Aqui me marca el error
Cells.Find(what:=Replace(imagen, ".jpeg", "")).Select
Label10 = ActiveCell.Offset(0, 2)
Label11 = ActiveCell.Offset(0, 1)
End Sub
me urge porfa
1 respuesta
Podrías mandarme el fichero para probar con el. No has definido las variables y la variable Imagen1 que tienes no sé lo que es. Si me mandas el fichero podré examinarlo.
Mi correo es
El el asunto del e-mail pon el titulo de la pregunta
Por defecto los controles de imagen se llaman Image1, Image2, etc.
Sin embargo veo que en tu listado pones
Imagen1.Picture= LoadPicture(ruta_e_imagen)
Simplemente quita la letra n de Imagen1, estoy seguro de que te funcionará.
Muchas gracias Valero por tus comentarios ya pude resolver mi problema te lo agradezco mucho pero voy a mandar otra pregunta si me puedes ayudar.
