Sayfadaki Resimleri Silmek

[htsumer]

Bir programdan binlerce veri kopyalayıp excele yapıştırıyorum verilerin yanındaki resimlerde geliyor.Üzerine tıkladığımda RESİM1, RESİM2 ... diye gidiyor bunları tek tek silmek zorunda kalıyorum binlerce veri ile binlerce resim demek..BUnu bir kod ile silmek istiyorum..Nasıl silebilirim tamamını resimlerin...

 

[hamitcan]

Bu şekilde deneyin.

Sub Sil()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

 

[htsumer]

Hay Allah razı olsun senden tamam..Hepsini sildi..Teşekkür ederim Hamit bey..

 

[Seyit Tiken]

Bu şekilde bir deneyin.

ActiveSheet.DrawingObjects.Delete

 

[htsumer]

Bir tek kusuru oldu Dğme ekliyorum onuda siliyor.. Çokda önemli değil..

 

[htsumer]

Sizinkiside güzel oldu Seyit bey elinize sağlık..

 

[mancubus]

kontrolun ismine göre silme veya silmeme mümkün olabilir.

Sub ShpSil()

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

End Sub

Sub ShpSil()

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

End Sub

Sub ShpSil()

    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Name = "OptionButton1" Then shp.Delete
    Next shp

End Sub

 

[Mustafa MUTLU]

Bir tek kusuru oldu Dğme ekliyorum onuda siliyor.. Çokda önemli değil..

Koda Tekrar Düğmeyi Atayıp Makroyu Yeniden Tayin edelim.
Sayfadaki veriler silinmez sadece nesneler silinir.
bu arada Düğmenizde Kaybolmaz.



Sub SİL()
ActiveSheet.DrawingObjects.Delete
Range("A1").Select
ActiveSheet.Buttons.Add(462, 41.25, 89.25, 18.75).Select
Selection.OnAction = "ThisWorkbook.SİL"
Range("A1").Select
End Sub