VBA stoppen bij annuleren door gebruiker

[martijnbos]

Beste allemaal,

Met onderstaande VBA code kan een gebruiker een foto invoegen als opmerking in excel.
In het scherm waar de gebruiker een bestand kan kiezen, kan hij ook op de knop annuleren drukken.
Wanneer dat gebeurt loopt de code vast en wordt er uiteindelijk een lege opmerking ingevoegd.

Heeft iemand enig idee hoe je dit kan ondervangen?

Sub test()
Dim s As String
s = Application.GetOpenFilename("Image Files (*.bmp;*.gif;*.jpg;*.jpeg)," & "*bmp;*gif;*.jpg;*.jpeg")

[d7].AddComment.Text
[d7].Comment.Shape.Fill.UserPicture s


[d7].Comment.Shape.Height = 300
[d7].Comment.Shape.Width = 300


End Sub

Alvast dank voor het meedenken.

 

[Niels28]

Sub test()
s = Application.GetOpenFilename("Image Files (*.bmp;*.gif;*.jpg;*.jpeg)," & "*bmp;*gif;*.jpg;*.jpeg")
If s = False Then Exit Sub
with [D7]
    .AddComment.Text
    .Comment.Shape.Fill.UserPicture s
    .Comment.Shape.Height = 300
    .Comment.Shape.Width = 300
end with
End Sub

Niels

 

[martijnbos]

Niels,

Dank voor je snell reactie.
Bij het annuleren gaat het nu prima.
Als ik echter wel een foto wil invoegen zegt ie:

Fout 13 tijdens uitvoering.
Typen komen niet met elkaar overeen.

Enig idee hoe ik dit kan oplossen?

 

[Niels28]

Ja zie ook aanpassing in vorige post.

Je kan s niet declareren als string omdat ik hem met false ook uitlees als Boolean.
De regel Dim S as String moet je dus verwijderen

Niels

 

[martijnbos]

Niels,

Sorry, had die aanpassing niet gezien. Had alleen de regel met "f s = False Then Exit Sub" toegevoegd.

Maar hij werkt perfect nu.
Dank voor de snelle oplossing.