Hücre içine webden resim (konum problemi)

[vivident]

Merhaba

Forumda bulduğum bir kodu kendi dosyamda kullanmaya çalışıyorum. K2:K20 hücreleri arasında, linklerdeki resimleri L2:L20 arasındaki hücrelere alıyor. Fakat K2:K20 arasında bazı hücrelerde link yok, bu nedenle kodda kullanılan ofset nedeniyle L2:L20 arasındaki resimler hatalı hücrelere yapışıyor. Dosyam ektedir

Örneğin
K2 : Link var L2 : resim var (ok)
K3 : Link yok L3 : resim yok (ok)
K4 : Link var L4 : resim olması gerekirken yok (hata)
K5 : Link yok L5 : resim olmaması gerekirken resim var (hata)

 

[ÖmerFaruk]

Kodlara bir IF sorgusu ekledim

Sub InsertPic()
    Dim pic As String, myPicture As Picture, rng As Range, cl As Range
    Set rng = Range("K2:K15")
    On Error Resume Next
    For Each cl In rng
        If Not IsEmpty(cl) Then 'ilave edildi
            pic = cl.Value
            Set myPicture = ActiveSheet.Pictures.Insert(pic)
            With myPicture
                .ShapeRange.LockAspectRatio = msoFalse
                .Width = cl.Offset(0, 1).Width
                .Height = cl.Offset(0, 1).Height
                .Top = Rows(cl.Offset(0, 1).Row).Top
                .Left = Columns(cl.Offset(0, 1).Column).Left
            End With
        End If ' ilave edildi
    Next cl
End Sub

 

[vivident]

teşekürler