Sayfada Bulunan Şekilleri Makro ile Silmek

[mustafa1205]

Ekte bulunan örneğimde de açıklama yapmaya çalıştım.Excel sayfamda bulunan yüzlerce şekil var ve ben sayfadaki bilgilere zarar vermeden mevcut olan şekilleri kod ile nasıl silebilirim ? Teşekkürler

 

[Seyit Tiken]

Hücreye çift tıklayarak nesneleri silebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.DrawingObjects.Delete: Cancel = True
End Sub

 

[mustafa1205]

Hocam çok teşekkür ediyorum epeydir uğraşıyordum. Sayenizde halloldu. Tekrar teşekkürler...

 

[lkadi]

merhaba;
şekilleri silmeyi sayfada çift tıklayarak değilde, herhangi bir düğme ile makro çalıştırarak yapabilirmiyiz, sayfada bir hücre içine birşeyler yazmak için çift tıkladığımda şekiller siliniyor böyle olması benim için istenen bir durum değil; Ayrıca şekiller içine eklediğimiz resimlerin makro ile DOKU olarak gözükmesi içinasıl bir komut kullanabiliriz.