Sayfaya Resim Ekleme Hk.

[skaan]

Merhaba; forumda hazırlanan aşağıdaki kodda sayfaya WordArt yazı ekledıgımde yada özellikle bir resim eklediğimde isim ile beraber resim değişince yazmıs oldugum WordArt yazı ve yapıstırmıs oldugum baska bir resim siliniyor.. Acaba eklenen resimlerin silinmemesi için Kodda ne gibi bir değişikli yapmamız gerekir.. Bu konuda da bana yardımcı olabilirmisiniz.. hersey tamam buna da çözüm bulabilirsek harika olacak.. Teşekkürler..
Saygılarımla,
SKaan

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$H$35" Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.Shapes.SelectAll
Selection.Delete
Sheets("Resim").Select
ActiveSheet.Shapes([H35]).Copy
[V33].PasteSpecial
Sheets("Genel").Select
Selection.ShapeRange.Name = "Resim"
[H35].Select
End Sub

 

[leumruk]

Merhaba,
Resimleri silen kod satırı:

ActiveSheet.Shapes.SelectAll
Selection.Delete

UYARI: Bu kodu çıkardığınızda ekleyeceğiniz diğer resimler üst üste binecektir.

 

[skaan]

Cok tesekkur ederımm
Skaan