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;
Kod:
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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.