İstenilen adrese resim çagırma

[gulvadi]

İyi akşamlar
Bundan 7-8 yıl önce aşağıdaki makroyu çalıştırdığımda secili hücreler resimleri getirirdi şimdi çalıştırdığımda sayfanın yukarıdan ortasına resimleri üst üste getiriyor. Secili nasıl getirebilirim

Sub Resim()
For i = 7 To 87 Step 20
Cells(i + 1, 2).Select
a = Cells(i, 1)
metin$ = "G:\1.Dönem 1. Yazılı\" & a & ".jpg"
     ActiveSheet.Pictures.Insert(metin). _
        Select
    Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
    Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(254, 252, 253)
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
    
    Next i
End Sub

 

[halit3]

Böyle denermisiniz.

Sub Resim()
For i = 7 To 87 Step 20
Cells(i + 1, 2).Select
a = Cells(i, 1)
metin$ = "G:\1.Dönem 1. Yazılı\" & a & ".jpg"
Set Adres = Range(ActiveWindow.RangeSelection.Address)
ActiveSheet.Pictures.Insert(metin).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Top = Adres.Top + 2
Selection.Left = Adres.Left + 2
Selection.ShapeRange.Height = Adres.Height - 3
Selection.ShapeRange.Width = Adres.Width - 3
Cells(i + 1, 2).Select

Next i
End Sub

 

[gulvadi]

Sayın halit3 hocam yardımların için teşekkür ederim. Kodlar işime yaradı.