Resim Alan Kod'da Düzenleme

[1Al2Ver]

Merhaba,

Aşağıdaki kod ile ; "A3" hücresinden seçim yardımıyla "K2" hücresine resim alıyorum,

Kod, "ActiveSheet.DrawingObjects.Delete" bu komut ile sayfadaki tüm objeleri vb. siliyor,

İsteğim ; "A3" ' ten her seçim yaptığımda "K2" dışındaki, objeler, resimler, düğmeler vb. nesnelerin silinmemesi,

Kod'da gerekli düzenlemeyi rica ediyorum,

Teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [A3]) Is Nothing Then Exit Sub

On Error GoTo çıkış

ActiveSheet.DrawingObjects.Delete

Dim ResimYolu As Variant

Dim Resim As Object

ResimYolu = ActiveWorkbook.Path & "\" & Range("A3") & ".png"

Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)

With Range("K2")
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = 450 '.Height 400
Resim.Width = 400 '.Width 640

End With
çıkış:
End Sub

 

[1Al2Ver]

Merhaba,

Çözüm arayış aşamasında yaptığım deneme/yanılmalar, olumlu sonuç vermediğinden, çözüm arayışım sürmektedir,

Teşekkür ederim.

 

[Korhan Ayhan]

Linkte bir örnek var.

Sadece belli hücrelerdeki resimleri silmek için makro

Merhabalar, Aşağıdaki makro çalışma sayfasındaki bütün resimleri siliyor. Sub Resimleri_sil() ActiveSheet.Shapes.SelectAll Selection.Delete End Sub Sadece A10:B20 arasındakileri silmesini istiyorum. Bir kaç deneme yaptım ama başarısız oldu.

www.excel.web.tr

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

Bilgilendirme ve ilginiz için teşekkür ederim, iyi sabahlar.

Saygılarımla.