Bild anzeigen - Format png oder jpg

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fotoname As Variant
Dim pfad As Variant
Fotoname = Range("C2").Value
pfad = ThisWorkbook.Path
pfad = pfad & "\Bilder\"
If Not Application.Intersect(Target, Range("C2")) Is Nothing Then
With Image1
.Picture = LoadPicture(pfad & Fotoname & ".jpg")
.Top = 60
.Left = 1500 '420
.Width = 50
.Height = 150
.PictureSizeMode = fmPictureSizeModeStretch
End With
End If
End Sub