Sayfadaki tüm resimleri silme

[Volkan Öztürk]

Selam dostlar.
makro ile çalışma sayfasına bin küsür tane resim yapıştırıyorum. Bilgiler değişince tekrar resimleri yapıştırmam gerekiyor. Ama eskilerinin üzerine yapıştırıyor. Buda üstüste resimler demek oluyo. Eski resimleri, daha doğrusu RESİM YAPIŞTIR KOMUTUNU VERDİĞİMDE İLK ÖNCE SAYFADAKİ TÜM RESİMLERİ SİLSİN sonra diğer resimleri yapıştırsın.

activesheets.shapes.selectall
selection.delete

çalışmıyor. "Out Of Memory" hatası veriyor. Kafayı yemek üzereyim. Yetişin....

 

[omerceri]

ActiveSheet.Shapes.SelectAll
Selection.Delete
şeklinde deneyin

 

[omerceri]

Tüm kitaptakileri silmek istiyorsanız.
For i = 1 To Sheets.Count
Sheets(i).Shapes.SelectAll
Selection.Delete
Next

 

[Seyit Tiken]

Bu şekilde de yapabilirsiniz.

Sub Makro1()
Sayfa1.DrawingObjects.Delete
End Sub

Diğer resimleri anlayamadık.

 

[Skorpiyon]

Sayın Tiken,

Arkadaş için küçük bir uyarı olsun, bu şekilde sayfa üzerine konulan buton da siliniyor.

Saygılarımla...

 

[Volkan Öztürk]

seyit hocam sağolasın be. İşime yaradı.

Diğer arkadaşlara da teşekkürler ilgilendikleri için.

 

[Volkan Öztürk]

düğmeler için bi iyilik düşünsek..

Arkadaşlar.
Resimler siliniyor. Fakat Sertkaya arkadaşımın dediği gibi düğmelerle birlikte. Bunu önlemek mümkünmü. Silinecek resimelerin hepsi 1 sütunda. Onun için sadece o sütündaki şekilleri silmek işe yarayabilir. Yardımcı olacak arakadaşlara şimdiden teşekkürler...

 

[Haluk]

Alternatif:

Eğer resimlerin hepsi A sütununda ise;

Sub Test()
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        x = ActiveSheet.Shapes(i).TopLeftCell.Column
        If x = [B][COLOR=Red]1[/COLOR][/B] Then ActiveSheet.Shapes(i).Delete
    Next
End Sub

Eğer resimler örneğin D sütununda ise o zaman yukarıdaki kodda kırmızı ile belirtilen 1 değerini 4 yapın ...

 

[Seyit Tiken]

Excelde genelde birden fazla çözüm yolları vardır. Nesneleri silen Düğme silinmez. Ekli dosyayı inceleyiniz.

Sub Düğme11_Tıklat()
ActiveSheet.Shapes("Button 11").Visible = 0
ActiveSheet.DrawingObjects.Delete
ActiveSheet.Shapes("Button 11").Visible = 1
End Sub

 

[Volkan Öztürk]

bilgileriniz altın değerinde...

Çook işime yarayacak. Teşekkür ederim...