Satırla birlikte resminde silinmesi

[esless]

Merhabalar.

Satırı sildiğimde ilgili satırda bulunan resminde satırla birlikte silinmesini istiyorum. Bu mümkün mü?

Teşekkürler.

 

[Erdinç E. Karaçam]

Mümkün,

A sütununda ilk 10 hücrede muhtelif değerler olsun, B sütununda ilk satırda da hücre ebatları ile eşdeğer büyüklükte resimlerimiz olsun;
Örneğin; 5. satırı silmek istiyoruz;
Module'e yazılacak kodlar;

Sub SilinenSatiraGoreResimideSil()
    Dim i As Integer
    Dim SilinenSatir As Integer
    SilinenSatir = 5
    On Error Resume Next
    With ActiveSheet.Shapes
        For i = 1 To .Count
            If .Item(i).Top = Cells(SilinenSatir, 1).Top Then
                ActiveSheet.Shapes(i).Delete
            End If
        Next i
    End With
    Rows(SilinenSatir).Delete Shift:=xlUp
    On Error GoTo 0
End Sub

Örnek geliştirilebilir, bir deneyin isterseniz...

 

[mehmet76]

merhaba arkadaşım