Sub Ekle_Nesne_TumSil()
  ActiveSheet.DrawingObjects.Delete
End Sub

Sadece istediğim türdeki resimleri silmek için nasıl bir kod yazmalıyım?

Bu konu ile ilgili olarak, Pictures, WordArt, AutoShape Resimlerini kullanmış olma ihtimaliniz var. Bu resimlere her yeni eklenen için bir numara verildiğini biliyoruz. Ancak bu resimlerin adları her zaman sabittir, sadece no'ları değişir. Adlarının VBA dilindeki karşılıklarının bilinmesi sayesinde istediğimiz türdeki nesnelere hükmetme şansına sahip olacağız. Bu işlem için döngü kullanacağız.

Öyle bir kod yazalım ki, hangi türdeki resimleri silmek istesek çalışsın. No'ları yok varsayan bir kod olmalı, çünkü resimlerin numaralarına güven olmuyor her zaman değişiyor. O zaman adları doğru alabilmek için Parçaal Formülü işimize yarayacaktır.

Sub Ekle_Nesne_IstedigimiSil()
  Dim Picture As Object
  Dim Bak As String
  Dim Uzunluk As Byte

  Bak = InputBox("Hangi Türdeki Resim Silinecek?", "S. UZUNKÖPRÜ", "WordArt")
  Uzunluk = Len(Bak)