jpeg yada jpg olarak resim yükleme

[mesutaygun70]

Aşağıdaki gibi bir kodum var jpeg yada jpg olarak yükleyince herşey tamam ama, jpeg olarak yoksa jpg olarak otomatik denemesi için ne yapmam lazım.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [x:x]) Is Nothing Then Exit Sub
ActiveSheet.DrawingObjects.Delete
On Error GoTo çıkış

Dim resimyolu As Variant
Dim Resim As Object

For satır = 1 To 500
resimyolu = ActiveWorkbook.Path & "\" & Range("x" & satır) & ".JPEG"
Set Resim = ActiveSheet.Pictures.Insert(resimyolu)

With Range("b" & satır + 44 & ":j" & satır + 44)
Resim.Top = .Top + 22
Resim.Left = .Left + 5
Resim.Height = .Height - 10
Resim.Width = .Width - 10
End With

Next satır
çıkış:
End Sub

 

[YUSUF44]

on error goto çıkış yerine on error resume next deyip, resimyolu satırının altına aynı satırı bir de .jpg olarak eklemeyi dener misiniz?