Bir Excel Sayfasındaki Resimlerin Hepsi Nasıl Silinir

[izcik]

Değerli Arkadaşlar. Örnek , bir web sayfasını excele kopyaladım. Ve bu oluşan sayfada bir çok resim de olabiliyor. Resimleri silebilmek için hepsinin üzerini tıklayıp tek tek silmek gerekiyor. Veya excelde kendi yaptığımız eklediğimiz resim çizim şekillerin hatta makro düğmesinin bile üzerlerinin tek tek tıklanıp silinmesi gerekiyor. Ve çok vakit alıyor.

Hepsini aynı anda silmek için bir yol var mıdır?


Not: "Web sayfasını kopyalarken direkt not defterine kopyalayabilirsiniz" demenize gerek yok çünkü bu sorunla normalde de karşılaşıyorum.

Nasıl silebiliriz resimleri daha kısa sürede? Teşekkürler.

 

[uzmanamele]

merhaba

1. yöntem
düzen / git / özel / nesneler
2. yöntem
çizim araç çubuklarında nesneleri seç (sol başta beyaz ok işareti) belirlediğiniz alanı maus ile seçin ve silin

 

[Ömer]

Merhaba,

Kodlar Sayın veyselemre'nin çalışmasından alıntıdır..

Sub Resim_Sil()
   With ActiveWorkbook
        For Each myshape In ActiveSheet.Shapes
            myshape.Delete
        Next myshape
   End With
End Sub

.

 

[idugun]

Merhaba Ömer Bey. Kod için teşekkürler. Lakin sayfaya buton ekleyip kodu yazıp çalıştırdığımızda buton da siliniyor. Alternatif çalışma veya düzeltme imkanı var mı?

 

[baydeniro]

Sayın Ömer ve sayın uzmanamele yardımlarınız için çok teşekkürler.

 

[uzmanamele]

Merhaba Ömer Bey. Kod için teşekkürler. Lakin sayfaya buton ekleyip kodu yazıp çalıştırdığımızda buton da siliniyor. Alternatif çalışma veya düzeltme imkanı var mı?

merhaba

bu kod işinizi görür mü?

Sub resim_sil()
Dim resimler As Integer
resimler = ActiveSheet.Pictures.Count
For i = 1 To resimler
ActiveSheet.Pictures(1).Delete
Next
End Sub

 

[ZİNDAN]

Sub Auto_Open()
Application.OnKey "{F12}", "Resim_Sil"
End Sub

Sub Resim_Sil()
With ActiveWorkbook
        For Each myshape In ActiveSheet.Shapes
            myshape.Delete
        Next myshape
   End With
End Sub

Modüle yazıp Excel sayfası üzerindeyken F12 tuşuna basmanız yeterli olacaktır.

 

[Ömer]

Merhaba Ömer Bey. Kod için teşekkürler. Lakin sayfaya buton ekleyip kodu yazıp çalıştırdığımızda buton da siliniyor. Alternatif çalışma veya düzeltme imkanı var mı?

Merhaba,

Bu şekilde de kullanabilirsiniz..

Sub Resim_Sil()
 Dim MyShape  As Object
   With ActiveWorkbook
        For Each MyShape In ActiveSheet.Shapes
            If Not MyShape.Name Like "*Button*" Then MyShape.Delete
        Next MyShape
   End With
End Sub

.

 

[izcik]

Çok teşekkürler değerli uzmanamele ve ömer.. Sorunum çözülmüştür.

 

[uzmanamele]

Çok teşekkürler değerli uzmanamele ve ömer.. Sorunum çözülmüştür.

merhaba

basit bir işlem için neden kod kullanmak istiyorsunuz anlamadım?
2. mesajda verdiğim çözüm önerisi çok daha iyi.

 

[baydeniro]

Sayın zindan, paylaşım için teşekkürler, iyi bir alternatif oldu.

 

[izcik]

Değerli uzmanamele galiba yanlış anlaşıldım. Bir itirafta bulunmam gerekecek. Değerli Ömer'in verdiği çözümü denemedim bile. Çünkü gerek kalmadı. Sizin verdiğiniz iki yol ile de resimler ve şekiller kolayca siliniyor. Hatta

"Ctrl + G yi pek kullanmıyorum sadece bazen Ctrl + F basarken parmağım bazen yanlışlıkla G harfine basıyor, ben de escape'e basıyorum."

şeklinde bir esprili mesaj gönderecektim. (Önerdiğiniz 1. yol) sonradan vazgeçtim.

Fakat Değerli Ömer de sizin gibi ve her zaman olduğu gibi ilgi gösterdiği için teşekkür ederken ayrım yapmak istemedim. Biraz fazla hassas düşünürüm genelde...

Yani sizin çözümünüz daha kolay ve kullanışlı üstelik Ctrl + G yi kullanmak lazım.. Bu işte makroya gerek yok..


Saygılar.

 

[Necdet]

Ctrl+G ya da F5 bence excelin en önemli tuşlarından biridir.

 

[uzmanamele]

merhaba
syn izcik,
sanırım 10.mesajda alıntı yaparken hata yapmışım. syn idugun'un makro arayışı için bunu söylemiştim.

neden benim önerimi kullanmıyorsunuz demedim, neden basit yolu kullanmıyorsunuz dedim.
ben genelde excelin yerleşik fonksiyonları ile yapılan bir işlem varsa kod kullanmayı tercih etmiyorum.

 

[izcik]

ben genelde excelin yerleşik fonksiyonları ile yapılan bir işlem varsa kod kullanmayı tercih etmiyorum.

Aynen sizin gibi düşünüyorum değerli uzmanamele. Formül daha doğal oluyor sanki..

 

[ZİNDAN]

Sayın zindan, paylaşım için teşekkürler, iyi bir alternatif oldu.

Rica ederim.

merhaba

1. yöntem
düzen / git / özel / nesneler
2. yöntem
çizim araç çubuklarında nesneleri seç (sol başta beyaz ok işareti) belirlediğiniz alanı maus ile seçin ve silin

Ctrl+G ya da F5 bence excelin en önemli tuşlarından biridir.

Konu sayesinde Ctrl+G / F5 tuşunu yeni öğrendim.
Gerçekten çok faydalı bir özellikmiş.

Teşekkürler.