İyi akşamlar,
Ben size .rar dosyasını gönderiyim arkadaşlar.Kodların içindeki resim yolunu siz kendi bilgisayarınıza göre ayarlayınız.Run deyip çalıştırdığımda resimleri üst üste yazıyor.Yani diğer resim aynı bölgede gözüküyor bu sefer sanki hiç resim eklenmemiş gibi duruyor.Yardımcı olursanız sevinirim.
Dosyanın indirme link : TIKLA

DİREK KODLARDAN ANLARIM DİYORSANIZ BUYURUN;

Sub ResimGetir()
SonSatir = InputBox("Satırın son sayısını girin")
If SonSatir = "0" Or SonSatir = "" Then End

Rows("1:" & SonSatir).Select
Selection.RowHeight = 95.25
    
Range("A1").Select

Do

ilkAdr = Selection.Address
Adres1 = Right(ilkAdr, Len(ilkAdr) - 3)
On Error Resume Next
ImageName = Range("B" & Adres1).Value

Select Case Len(ImageName)

Case 1
    ImageName = "00000" & ImageName
Case 2
    ImageName = "0000" & ImageName
Case 3
    ImageName = "000" & ImageName
Case 4
    ImageName = "00" & ImageName
Case 5
    ImageName = "0" & ImageName

End Select

Range("A" & Adres1).Select
ActiveSheet.Pictures.Insert("C:\Users\resim getir\Images\" & ImageName & ".jpg").Select


Selection.ShapeRange.IncrementLeft 3.75
Selection.ShapeRange.IncrementTop 2.25
Selection.ShapeRange.ScaleWidth 0.52, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.52, msoFalse, msoScaleFromTopLeft

Range("A" & Adres1 + 1).Select
Loop Until Adres1 = SonSatir
End Sub