How to insert jpg images into spreadsheet using VBA

[EMASOFT]

thank you for your prevoius codes
i wanted a vba code that picks a photo from folder basing on a drop down list at ref- U13 and display it at ref P2 and if the drop option has no image in the folder, a blank image be displayed for that option without returning any error message
the code i am having is

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

Dim myPict As Picture
Dim PictureLoc As String

If Target.Address = Range("U13").Address Then

ActiveSheet.Pictures.Delete

PictureLoc = "C:\PHOTO\" & Range("U13").Text & ".jpg"

With Range("P2")
On Error GoTo errormessage:
Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)

myPict.Height = 300
myPict.Width = 200
myPict.Top = .Top
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
myPict.ShapeRange.LockAspectRatio = msoTrue

errormessage:
If Err.Number = 1004 Then

MsgBox "File does not Exist, Please first update photo with .jpg File"

End If
End With
End If
Application.ScreenUpdating = True
End Sub

 

[EMASOFT]

thank you so much it has worked perfectly

 

[EMASOFT]

the picture that displays after running my codes removes all other pictures in the spreadsheet
how do i disable that? thank you

 

[jolivanes]

From Post #7: "Cells(2, 16).Left, Cells(2, 16).Top, 200, 300"
The 200 and 300 are the width and height.

From Post #9: "Sheets("Sheet1").Pictures.Delete:"
Remove this part to not delete all pictures.
You had that in your first post so I thought you wanted it.