Insert Photo - error on cancel

[mooresk257]

Hi,

I have the following code for a picture box to load an image file:

Private Sub Image1_Click()

FileToOpen = Application.GetOpenFilename("All Files
(*.jpg),*.jpg,(*.bmp),*.bmp")
Worksheets("Sheet1").OLEObjects("Image1").Object.Picture _
= LoadPicture(FileToOpen)

End Sub

which works fine unless I click "cancel" instead of selecting an image file,
at which point there is an error.

How to I allow the process to abort cleanly on "cancel"?

Thanks!

 

[Martin Fishlock]

Hi:

You need to check the cancel button on return from getting the file name. Try:

Private Sub Image1_Click()

FileToOpen = Application.GetOpenFilename( _
"All Files (*.jpg),*.jpg,(*.bmp),*.bmp")
If FileToOpen <> False Then
Worksheets("Sheet1").OLEObjects("Image1").Object.Picture _
= LoadPicture(FileToOpen)
End If

End Sub

 

[mooresk257]

Thanks - that's much cleaner code than what I had come up with!