Makro ile İstenilen Resimleri Silme

[Taha ell]

Merhabalar,
Makro etkinleştiğinde açık olan sayfada tek bir resmi silmek istiyorum. Sayfada bir çok resim var ama sadece İstediğim resmi silmem gerekiyor.(Picture 7)
2007 için destek rica ederim.
Kolaylıklar.

 

[hamitcan]

Bu şekilde deneyin.

Sub sil()
    On Error Resume Next
    ActiveSheet.Shapes("Picture 7").Delete
End Sub

 

[Taha ell]

Bu şekilde deneyin.

Sub sil()
    On Error Resume Next
    ActiveSheet.Shapes("Picture 7").Delete
End Sub

Merhaba;
Emeğiniz için teşekkür ederim. Kod butona atayınca çalışıyor ama benim için makro etkinleştirildiği anda çalışması gerekiyor. Biraz uğraştım ama yapamadım. Yardımcı olur musunuz?
Kolaylıklar.

 

[Korhan Ayhan]

Bu satır yerine;

Sub sil()

Aşağıdaki satırı yazıp deneyin;

Sub Auto_Open()

 

[kykbt]

Resimleri bulup tek tek silme

Arkadaşlar merhaba

Ben H sutunundaki resimleri tek tek bulup silmek istiyorum.
Yardımınıza ihtiyacım var..

 

[PLİNT]

Arkadaşlar merhaba

Ben H sutunundaki resimleri tek tek bulup silmek istiyorum.
Yardımınıza ihtiyacım var..

Merhaba
Aşağıdaki gibi olabilir.

Sub resim_sil()
Dim x As Shape
Dim sor As Long
Dim s1 As Worksheet
Set s1 = ActiveSheet
For Each x In s1.Shapes
If Not Intersect(x.TopLeftCell, s1.[H:H]) Is Nothing Then
sor = MsgBox(x.Name & " " & "SİLİNSİNMİ", vbYesNo)
If sor = vbYes Then x.Delete
End If
Next x
End Sub