fout 53 tijdens uitvoering, kan het bestand niet vinden

[peetpjotter1000]

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Image1.Picture = LoadPicture(Application.GetOpenFilename)
End Sub

ik gebruik het volgende scriptje om een afbeelding binnen mijn sheet eenvoudig te wijzigen.


Ben hier erg tevreden mee, echter als het browsevenster komt en ik klik op annuleren dan krijg ik:
fout 53 tijdens uitvoering, kan het bestand niet vinden.

ik mis vast een stukje script die het mogelijk maakt om deze melding niet te krijgen.
Nu is mijn kennis van vba niet toereikend genoeg om dit script zelf te schrijven
wie o wie kan mij helpen?

 

[edmoor]

Maak er eens dit van:

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo Leeg
    Image1.Picture = LoadPicture(Application.GetOpenFilename)
    Exit Sub
    
Leeg:
    If Err.Number <> 53 Then
        MsgBox "Fout: " & Err.Number & vbCrLf & Err.Description
    End If
End Sub

 

[peetpjotter1000]

Maak er eens dit van:

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo Leeg
    Image1.Picture = LoadPicture(Application.GetOpenFilename)
    Exit Sub
    
Leeg:
    If Err.Number <> 53 Then
        MsgBox "Fout: " & Err.Number & vbCrLf & Err.Description
    End If
End Sub

edmoor je bent een topper, bedankt

 

[OctaFish]

Nu nog afleren om nodeloos complete berichten te quooten, en je bent er .