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 