Resim oluşturulacak hücre seçimi

[mesutaygun70]

Klasörden resimleri aldığım bir makro buldum. Ama tek hücreye sığdırıyor. Ben bunu A61:l61 hücreleri içine oturtmak istiyorum. Yardımcı olabilirmisiniz. Kırmızı kısmı With Range("a61:L61") yapınca oluyor ama kodu değiştiremiyorum.

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("a" & satır)
Resim.Top = .Top
Resim.Left = .Left + 5
Resim.Height = .Height - 3
Resim.Width = .Width - 6
End With

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

 

[Necdet]

Merhaba,
Sizin açıklamalarınızdan hareketle :

With Range("A" & satır & ":L" & satır)

yapıp dener misiniz?

 

[mesutaygun70]

Teşekkürler oldu, ama şöyle bir sorunum daha oluştu. Resimlerin bazıları .jpeg, bazıları jpg. Eğer jpeg resim yoksa jpg olarak bakması için ne yapabilirim.

resimyolu = ActiveWorkbook.Path & "\" & Range("x" & satır) & ".JPEG"