Sayfadaki Tüm Resimleri Sil

[baydeniro]

Merhaba arkadaşlar. Sayfadaki tüm resimleri sil için bir makro var mıdır ? Ben sadece bir resmi silecek şekilde bir kod oluşturdum. Aşağıdaki bu kodu "Tüm Resimleri Sil" e çevirmek mümkün mü ?

 

[Kemal Demir]

Serdar bey,

Sorunuzu anladıgım kadarıyla aşagıdaki kod işinizi görecektir.

Sub Saydaki_Resimleri_Sil()
Dim sekilsay As Integer
sekilsay = ActiveSheet.Shapes.Count
    For x = 1 To sekilsay
    ActiveSheet.Shapes(x).Select
    Selection.Cut
Next
MsgBox ("Bitti")
End Sub

 

[baydeniro]

Sayın Kemal Demir, ilginize çok teşekkür ederim. Makro kısmen çalışıyor. Örneğin sayfada 5 resim varsa 3 ünü siliyor ve "ActiveSheet.Shapes(x).Select" satırında takılıyor.

 

[Kemal Demir]

Serdar Bey,

Örnek dosyayı eklemeniz mümkünmüdür?

 

[baydeniro]

Sayın Kemal Demir. Örnek dosya ektedir.

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki kodu deneyin.

Sub nesnesil()
For Each nesne In ActiveSheet.DrawingObjects
If TypeName(nesne) = "Picture" Then nesne.Delete
Next
End Sub

Not: Serdar bey dosya eklerken lütfen şifreleri kaldırmaya dikkat edin.

 

[baydeniro]

Sayın Levent Menteşoğlu ilginiz ve yardımlarınız için çok teşekkür ederim. Sağlıcakla kalın.