Resmin üzerine tıklanınca silinsin

[Muhammet Okumuş]

Arkadaşlar merhaba,

Şu aralar korana virüsten dolayı evdeyim. Oldukça zamanım oluyor ve bu zamanımı Excel ile uğraşarak geçiriyorum. Bu aralar resimler ile çalışıyorum. Yine bir noktada takıldım.
Sorum şu: Sayfada bulunan her hangi bir resme (jpg, png, jpeg uzantılı) tıklandığında (sol klik ) resim silinsin.

 

[Korhan Ayhan]

Bu durumda tıkladığınız nesneye makro atamak gerekecektir.

 

[Muhammet Okumuş]

Korhan Bey harikasınız! Hiç aklıma gelmezdi.

Allah sizden razı olsun, bu mübarek günde tüm dualarınız kabul olsun.

 

[Haluk]

Eğer resmin üzerine tıkladıktan sonra butona atanmış aşağıdaki makroyu çalıştırırsanız, seçilen resmi silersiniz. Böylece sayfadaki her resme ayrı ayrı makro yazmanıza/atamanıza gerek kalmaz.

Sub Test()
    If TypeName(Selection) = "Picture" Then Selection.Delete
End Sub

.

 

[Seyit Tiken]

Alternatif olarak şu şekilde de kullanılabilir.

Sub resimsil()
Selection.Delete
End Sub

 

[Muhammet Okumuş]

Sn. Haluk ve Seyit Tiken cevaplarınız için çok teşekkür ederim.