Hafızada Kalan Resmi Iptal Etme

Ömer BARAN,​

Kod sorunu çözdü. Çok sağ olun.
Asıl belgem biraz karışık, buradaki belgeyi basitleştirmiştim. Bunu için biraz denemeler yapmak istiyorum. Konuyu çözüldü olarak yarın işaretleyeceğim. Belki hesapta olmayan bir durum ortaya çıkar.

Ömer BARAN,​

Kodu aşağıya eklediğim biçime dönüştürünce hiçbir sorun olmadan çalışıyor.
>>> İlk üç satırda 32/64 bit uyumu için PtrSafe ve Ptr ifadelerini ekledim.
>>> KAMERA adlı makroya Selection.Formula = "='Veri'!I2:M11" satırını ekledim. Bunu eklemeyince oluşturulan resim dinamik olmuyordu. Bu biçimi ile ilgili yerdeki değişim anlık olarak yansıtılabiliyor (Excel'in kamera özelliği oluşuyor yani.).

NOT: Asıl belgemde kullandığım kod yapıştırma satırında bazen hataya düşüyordu. Sanırım hafızada kalan resimden kaynaklıydı. Şimdi bu hata oluşmuyor.
Yardımınız sayesinde kodum sadeleşti ve sorunu kalmadı. Yeniden teşekkürlerimi sunuyorum. Sağ olun.


Kodun son şeklini aşağıya ekliyorum.

Bir alternatif de; Declare vs kodları yazmadan sadece şu şekilde bir kod kullanmak olsun.


Baştaki For...Next döngüsü, düğmeye her tıklamada aynı resmin tekrar ve tekrar yapıştırılmaması için var ve
önce varsa mevcut görselin silinmesini sağlar.
Silme gerekli değil derseniz kodda ilgili kısmı silersiniz veya her satırın sol başına TEK TIRNAK eklersiniz.

Ömer BARAN,​

Yeni kod için teşekkürler.
Göderdiğiniz koddaki ActiveSheet.[A1].Activate: Selection.Copy: Application.CutCopyMode = False satırını kullanacağım. Daha basit bir yol olduğu için.


Koddaki bu bölüm $B$2 hücresini referans aldığı için oluşturulan resim bu hücreden sağa sola vb. bir yere taşınınca silme işlemi yapılmıyor.
For Each bölümünü ben de kullanıyorum.
Önce sayfadaki resimlere ad veriyorum ve bu adları aratarak silme şeklinde kullanıyorum.

Sayfadaki KONUMundan bağımsız olarak ilk kodunuzdaki gibi ADLANDIRMA işleminden yararlanılabilir.