Belirli bir nesneyi makro ile silmek

[EKREM1661]

Değerli Arkadaşlar..! İlişikte Küçük bir örnek ekledim.. Yazdır sayfasında bir buton ile; "Resim 1" isimli, resim nesnesini makro ile siliyorum..

Ancak; resim olmayınca, silecek resim bulamıyor ve hata veriyor " If " ifadesi kullanmak gerekiyor, bunu başaramadım.. yardımcı olabilir misiniz.

 

[uzmanamele]

merhaba

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

Sub ResimSil()
If ActiveSheet.Shapes(1).Name = "Resim 1" Then
ActiveSheet.Shapes("Resim 1").Delete
Else
MsgBox "resim yoktur"
End If
End Sub

 

[EKREM1661]

Sn. uzmanamele ilginize teşekkür ediyorum.. Fakat sayfada "Resim 1" olduğu halde; nedense MsgBox "resim yoktur" iletisini veriyor..Yani silme işi gerçekleşmiyor..

 

[EKREM1661]

Süleyman Bey..özür diliyorum..hata bendeki dosyada imiş.. yardımınız için teşekkürler..

 

[Necdet]

Merhaba,

Adı Resim ile başlayan tüm şekilleri silmek isterseniz kodları deneyiniz.

Sub Adi_Resim_ile_Baslayan_Sekilleri_Sil()
    Dim r As Shape
    For Each r In ActiveSheet.Shapes
        If r.Name Like "Resim*" Then r.Delete
    Next r
End Sub

 

[EKREM1661]

Sn.Necdet Bey'e çok teşekkür ediyorum.. Bu çözüm çok işimi görecek..

 

[owenefe]

Merhaba,

Adı Resim ile başlayan tüm şekilleri silmek isterseniz kodları deneyiniz.

Sub Adi_Resim_ile_Baslayan_Sekilleri_Sil()
    Dim r As Shape
    For Each r In ActiveSheet.Shapes
        If r.Name Like "Resim*" Then r.Delete
    Next r
End Sub

Hocam selamlarrrr bu kodu nasıl tüm sayfalara ekleyebilirz ve misal bazı nesnelerim O ile bazıları A ile başlıyor o seçeneği nasıl çoğaltabilirim altına direk
If r.Name Like "Resim*" Then r.Delete
If r.Name Like "O*" Then r.Delete
.
.
bu şekilde eklemem mi gerekiyor

 

[Necdet]

Merhaba,

Sub Adi_Resim_ile_Baslayan_Sekilleri_Sil()
    Dim r As Shape
    For Each r In ActiveSheet.Shapes
        If r.Name Like "O*" Or r.Name Like "A*" Then r.Delete
    Next r
End Sub

 

[owenefe]

Merhaba,

Sub Adi_Resim_ile_Baslayan_Sekilleri_Sil()
    Dim r As Shape
    For Each r In ActiveSheet.Shapes
        If r.Name Like "O*" Or r.Name Like "A*" Then r.Delete
    Next r
End Sub

Selamlar hocam bunu aktif sayda değilde tüm çalışma kitabı için nasıl yapabiliriz. Tüm dosyadaki image1 nesnelerini silmek istiyorum hatta mumkunse aynı boyutlarda yerıne belirlediğim konumdan foto eklemek

 

[Necdet]

Merhaba,

İşlem gayet basit, Önce tüm sayfaları dolaşan bir döngü ve bu döngünün içinde de mevcut döngü olması gerek.

Sub Adi_Resim_ile_Baslayan_Sekilleri_Sil()

    Dim r As Shape
    Dim sh As Worksheet
    
    For Each sh In Worksheets
        For Each r In sh.Shapes
            If r.Name Like "O*" Or r.Name Like "A*" Then r.Delete
        Next r
    Next sh
    
End Sub