Belli Sayfalarda Belli Resimleri Silme

[owenefe]

Selamlar elimdeki excel dosyasında belli sayfalarda aynı konumda 2 adet resim var. Bunların adı Image1 ve Image2. Ben bunları tek seferde silmek istiyorum. Bu işlemi toplu yapmak ama adını benım yazacağım sayfalarda yapmak istiyorum. Ve sayfalarda başka imagelerde var sadece adı Image1 ve Image2 olan. Bu mümkün müdür acaba teşşekürler. Bu arada silme işlemi yapmak istediğim sayfaların isimleri 1 2 3 ..... 250 ye kadar gidiyor

 

[Necdet]

Merhaba,
Önce sayfaları seçin, sonra kodları çalıştırın.

Public Sub SecilenSayfalar()

Dim sh As Worksheet

On Error Resume Next

For Each sh In ActiveWindow.SelectedSheets
    sh.Select
    sh.Shapes.Range(Array("Image1", "Image2")).Delete
Next sh

End Sub

 

[muzaffer.sm]

Alternatif olsun.
Basit bir çözüm giriş kutusu ile seçilen sayfayı siliyor.