Sayfadaki Resmi silme * MAKRO*

[turist]

[ÇÖZÜLDÜ] Sayfadaki Resmi silme * MAKRO*

Sayfada mevcut resmi silmek ve yerine yenisini getirmek için Kaydet/Makro ile oluşturulan kod :

Sub Macro1()
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.Delete
 End Sub

şeklinde.(Yerine yenisini getirmekte bir sorun yok)
Kod'da yer alan Picture 1 , daha sonra işlemler tekrar ettikçe, Picture 2,3, n adet isimde olmaktadır.
Resim numarası ne olursa olsun oluşacak Picture şeklini silmek için nasıl bir kod kullanılabilir.

İlgi ve yardımcı olacak arkadaşlarımıza şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki döngüyü kullanabilirsiniz.

Sub RESIM_SIL()
    Dim RESIM As Shape
    
    For Each RESIM In ActiveSheet.Shapes
        If InStr(1, RESIM.Name, "Picture") > 0 Then RESIM.Delete
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[turist]

Merhaba,

Aşağıdaki döngüyü kullanabilirsiniz.

Sub RESIM_SIL()
    Dim RESIM As Shape
    
    For Each RESIM In ActiveSheet.Shapes
        If InStr(1, RESIM.Name, "Picture") > 0 Then RESIM.Delete
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Üstadım, çok teşekkür ederim.

 

[cakto]

Bende benzer sorunla karşılaştım sayenizde çözdüm teşekkürler