Control de errores con imágenes
Tengo este formulario
Al dar clic en la cámara de la parte inferior derecha me abre este otro formulario
En donde me muestra una imagen guardada en mi pc, pero si la imagen no existe me muestra un error.
He intentado controlar el error con esto pero no me funciona.
Private Sub UserForm_Initialize()
Image = ThisWorkbook.Path & "\fotos\" & Range("F6") & ".jpg"
Image1.Picture = LoadPicture(Image)
'On Error Resume Next
'ImagenError = ThisWorkbook.Path & "\fotos\" & 1 & ".jpg"
'Image1.Picture = LoadPicture(ImagenError)
End SubLo que necesito es que cuando la imágen no exista me muetre un mensaje que diga Imágen no disponible o algo asi.
Alguien que me pueda ayudar
1 respuesta
Prueba de esta forma
Private Sub UserForm_Initialize()
On Error Resume Next
Image = ThisWorkbook.Path & "\fotos\" & Range("F6") & ".jpg"
Image1.Picture = LoadPicture(Image)
If Image1 = "" Then
MsgBox "no existe foto con ese nombre"
exit sub
end if
'ImagenError = ThisWorkbook.Path & "\fotos\" & 1 & ".jpg"
'Image1.Picture = LoadPicture(ImagenError)
End Sub
Lo que no me queda claro de donde carga la fotos pero prueba a ver
