Resim varsa sil

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Makro ile bir sayfada resim varsa sil nasıl denir?

Tamam buldum. Teşekkür ederim

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

Farklı yöntemlere açığım.
Saygılarımla

 

[Korhan Ayhan]

Sayfada silinmemesi gereken nesne yoksa aşağıdaki kodu deneyebilirsiniz.

On Error Resume Next
ActiveSheet.DrawingObject.Delete
On Error GoTo 0

 

[Tevfik_Kursun]

Teşekkürler

 

[Necdet]

Merhaba,
Ben de Type değerlerini vereyim, her şeyi değil belli nesneleri silmek için işe yarar.

msoAutosShape    Otomatik şekiller (dikdörtgen, oval vb.)
msoCallout    Açıklama kutuları
msoChart    Grafik nesneleri
msoComment    Yorum balonları
msoFreeform    Serbest biçimli çizimler
msoGroup    Grup halinde birleştirilmiş şekiller
msoLine       çizgiler

 

[Tevfik_Kursun]

Çok teşekkür ederim