Sayfadaki butonlar hariç tüm resimleri silme

[kneehot]

Arkadaşlar merhaba, bir makro buldum ama bu makro sayfadaki fotolarla beraber butonları da siliyor. Butonlar silinmeden butona atayacağım makro ile tıkladığımda sadece sayfadaki tüm fotoların silinmesini nasıl sağlayabilirim. Bulduğum makroyu aşağıya ekledim. Şimdiden tüm yardımlara çok teşekkür ederim.


Sub Macro1()
ActiveSheet.DrawingObjects.Delete
End Sub

 

[Haluk]

Sub Test()
    Dim objShape As Shape
    
    For Each objShape In ActiveSheet.Shapes
        If objShape.Type = msoPicture Then objShape.Delete
    Next
End Sub

.

 

[kneehot]

Sub Test()
    Dim objShape As Shape
   
    For Each objShape In ActiveSheet.Shapes
        If objShape.Type = msoPicture Then objShape.Delete
    Next
End Sub

.

Yardımınız için çok teşekkür ederim fakat kod çalışmadı

 

[Haluk]

Çalışmayan kodu göndermem, muhtemelen siz birşeyi yanlış yaptınız..... ya da; sayfada "foto" dediğiniz şeyler başka bir şey.

Örnek dosya ekleyin, duruma bakalım...

.

 

[kneehot]

Çalışmayan kodu göndermem, muhtemelen siz birşeyi yanlış yaptınız..... ya da; sayfada "foto" dediğiniz şeyler başka bir şey.

Örnek dosya ekleyin, duruma bakalım...

.

Yazdığınız kodu modüle kopyaladım, sayfada png olarak yaklaşık 40 foto var. Butona atadım kodunuzu butona basınca hiçbir hareket olmadı. Nerede hata yapıyorum bilemedim.

 

[Haluk]

Ben de sayfaya PNG formatında resimler ekledim, kodu çalıştırdım .... Buton hariç, tüm PNG'ler silindi.

.

 

[kneehot]

Ben de sayfaya PNG formatında resimler ekledim, kodu çalıştırdım .... Buton hariç, tüm PNG'ler silindi.

.

Sorun şuymuş ben fotolarıda makro ile çağırdığım için görmüyor. Sonradan kendim resim ekleden ekle yapıp sizin makroyu çalıştırınca onu görüyor ve siliyor.

 

[Haluk]

Sorun şuymuş ben fotolarıda makro ile çağırdığım için görmüyor.....

Nasıl bir makro bu?

.

 

[metin_0606]

Ben de sayfaya PNG formatında resimler ekledim, kodu çalıştırdım .... Buton hariç, tüm PNG'ler silindi.

.

Sayın haluk hocam resimleri makro ile klasörden çekdiğimizde bu makro resimleri silmiyor ancak excelin resim ekle özelliği ile getirttiğimiz zaman siliyor

 

[Haluk]

O zaman koddaki msoPicture ifadesi yerine msoLinkedPicture kullanın....

.

 

[metin_0606]

O zaman koddaki msoPicture ifadesi yerine msoLinkedPicture kullanın....

.

şimdi oldu hocam

 

[kneehot]

şimdi oldu hocam

Bu değişiklikle çalıştı çok teşekkürler