Sayfadan çıkınca veya işlem bitince resimlerin silinmesi

[byfika]

Merhabalar,
Userform üzerinden F8 e isim girince D2 ye kişinin resmini (isim değiştiğinde resim silinip yeni isme göre yeni resim gelmekte), Ayrıca F8 e ne yazılırsa yazılsın alttaki kodla F2 ye res1 isimli ve J2 ye res2 isimli resimleri ( bunlar isme göre değişmeyen iki aynı resim) getiriyorum. Ve print işlemi yapıyorum.
Fakat F8 e her girilen isimden sonra F2 ve J2 ye alınan resimler üst üste binmekte ve dosyayı şişirmekte. Sayfadan çıkıldığında veya print işlemi bittiğinde F2 ve J2 deki resimleri silecek kod nasıl olabilir?
Bilgi için teşekkürler…

Private Sub Worksheet_Change(ByVal Target As Range)
Dim res As String
Dim a As Shape
Dim D2 As Range
If Sayfa2.Range("f8") <> "" Then
Range("j2").Select
ActiveSheet.Pictures.Insert("\RESİMLER\res2.jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 40
Selection.ShapeRange.Width = 190
Selection.ShapeRange.Rotation = 0#
End If

If Sayfa2.Range("f8") <> "" Then
Range("F2").Select
ActiveSheet.Pictures.Insert("\RESİMLER\res1.jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 20
Selection.ShapeRange.Width = 140
Selection.ShapeRange.Rotation = 0#
End If
End Sub

 

[Murat OSMA]

Bu kod sayfadaki tüm resimleri siler. İşinizi görürse kullanabilirsiniz.
activesheet.drawingobjects.delete

 

[byfika]

Merhabalar Murat bey, Worksheet_Activate denedim. Çalıştı. Fakat diğer Tüm excel sayfalarındaki buton ve resimleri de silmekte.
Bilgi için çok teşekkürler..,
Saygılarımla...

 

[Murat OSMA]

Sayfanın Worksheet_Activate olayına yazdıysanız sadece o sayfadaki resimleri siler.
Çalışma kitabının Workbook_SheetActivate olayına yazdıysanız hepsini silmesi normal.

 

[byfika]

Merhabalar bende alttaki kod gibi denemiştim. Modulde aynı kod vardı ve bunu sayfada Worksheet_Deactivate içine Call komutu ile çağırmıştım. Bunu iptal edince normele döndü.
Tekrar teşekkürler. Saygılarımla...

Private Sub Worksheet_Activate()
activesheet.drawingobjects.delete
End Sub

 

[Murat OSMA]

Rica ederim, iyi günler.