EXCEL VBA IMAGE SHAPE ERROR ON SEARCH

WLLIAN 

You can achieve this using the Dir function to verify if the file exists before attempting to load it. Here's an improved version of your code:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ERRORDATO
    
    Dim FOTO As String
    FOTO = "C:\A\FOTO JBA\" & Range("O1").Value & ".JPG"
    
    ' Check if the file exists before attempting to load it
    If Dir(FOTO) <> "" Then
        ActiveSheet.Shapes("Imagem 1").Fill.UserPicture (FOTO)
    Else
        ' If the file does not exist, load the default "no image" file
        ActiveSheet.Shapes("Imagem 1").Fill.UserPicture ("C:\A\FOTO JBA\0.JPG")
    End If
    
    Exit Sub

ERRORDATO:
    ' Fallback to the "no image" picture in case of any error
    ActiveSheet.Shapes("Imagem 1").Fill.UserPicture ("C:\A\FOTO JBA\0.JPG")
    Exit Sub
End Sub

My answers are voluntary and without guarantee!

Hope this will help you.

Was the answer useful? Mark as best response and like it!

This will help all forum participants.

Happy Excel-ing!