Sayfadaki resimlerden istediklerimizi silmek

[Mdemir63]

Selamlar
Örnek dosyada ki sayfada bulunan resimlerden yeşil olanlar kalacak diğerleri silinecek makro ile nasıl yapabilirim?

Saygılar

 

[Mdemir63]

Tekrar merhabalar
Sitede aşağıdaki kodları buldum
istediğimin bir tanesini yapıyor. Yani resim1 hariç diğerlerini siliyor, resim2 yi de sildirmezsem benim istediğim olacak

Saygılar

Sub ShpSil()

Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Name <> "resim1" Then shp.Delete
Next shp

End Sub

 

[Mdemir63]

Selamlar
Olumlu veya olumsuz bir cevap almam mümkün müdür?

Saygılar

 

[turist]

Bu şekilde deneyin.

Sub ShpSil()

Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Name <> "resim1" And shp.Name <> "resim2" Then shp.Delete
Next shp

End Sub

 

[Mdemir63]

Sayın turist ilginiz için çok teşekkür ederim. Ellerinize sağlık

Saygılar

 

[turist]

Sağolun.