Yardım Hücreye resim getirme ve silme

Aşağıda yazmış olduğum kodda b sütününe eklemiş olduğum ürünün resmini +2 kolona getiriyorum gelen resme manüel olarak değişiklik yapıyorum fakat bir at satıra ekleme yaptığımda resimde manüel olarak yapmış olduğum değişiklik ilk haline geliyor.

Yapmak istediğim ;
- Farklı Satırdan ürünü sildiğim de eklediğimde sadece o satır da olan ürünün resmi silinsin vede diğer satırlarda olan ürünlerin şekillerinde hiçbir değişiklik olamasın.

Konuyla ilgili yardımlarınızı bekliyor şimdiden teşekkürler ederim.


SonSatır = ActiveSheet.Cells(Rows.Count, "b").End(xlUp).Row
ActiveSheet.Pictures.Delete
For i = 2 To SonSatır
On Error Resume Next

ResimAdı = ActiveSheet.Range("B" & i)
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & ResimAdı & ".png").Select
If Err.Number > 0 Then GoTo son
Selection.Top = ActiveSheet.Range("B" & i).Offset(0, 2).Top + 2
Selection.Left = ActiveSheet.Range("B" & i).Offset(0, 4).Left + 2
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = ActiveSheet.Range("B" & i).Offset(0, 2).Height + 45
Selection.ShapeRange.Width = ActiveSheet.Range("B" & i).Offset(0, 4).Width - 2
Target.Offset(1, 0).Select
son:
Err.Clear
Next i

Merhaba @Hüseyin,
Dosyanızı eklerseniz daha hızlı ve sağlıklı yanıtlar alabilirsiniz.

Çalışma dosyam ektedir ilginiz için şimdiden teşekkür ederim.

Sayfaya eklenen resimlerle beraber yollar mısınız?

Admin' Alıntı:

Sayfaya eklenen resimlerle beraber yollar mısınız?

Ekli dosyayı görüntüle 599

Genişletmek için tıkla ...

Hocam dosyadaki resimler büyük olduğunda iki adet resim ekleye bildim...

@Admin, hocam göndermiş olduğum dosyaya bakabildiniz mi..

Şimdi bakabildim..
Fakat istediğiniz işlemi anlamadım.

Örneğin; burada 4 ve 5. satırları seçip sildiğimde ne gibi bir sorun oluyor diyorsunuz?
Çünkü sildiğimde ürün resimleriyle ilgili bir hata almadım, dolayısıyla sizin karşılaştığınız sorunu net olarak anlayamadım.

@Admin, Hocam,

Resimler ekrandayken boyutlarına manüel olarak değişiklik yapıyorum sonrasında tek bir ürün ekleyip veya çıkardığımda resimlerin hepsi orjınal boyuta geliyor. Değişiklik yaptığım ürün hücresi haricindeki resimlerin boyutlarının değişmesini istemiyorum.

O zaman değişiklik yaptığınız ürüne ait bir sütuna işaret koyun, sonra da kodda deyin ki; eğer o işaret yoksa ürün resmini getir.