Birleştirişmiş Hücreye Stok kodu ile ilgili resmi çağırma

[iharda]

Konu ile ilgili Birleştirilmiş hücreye resim çağırma gibi başlıkları inceledim fakat hiç bir şey anlayamadım istediğim şeyi örnek dosyada gönderiyorum

Sayfa 1' de kod1 stok kodunu yazdığımda Resim sayfasından(yada bağlı bulunduğu dizindeki herhangi bir klasörden) ilgili resmin kodun üstündeki birleştirilmiş hücreye çağırılmasını istiyorum yardım ve emeğiniz için şimdiden teşekkürler

 

[muygun]

Merhaba;
Dosyanın bulunduğu yere bir klasör açın ve resimleri yerleştirin.
Açtığınız klasörün adını sayfada P1 hücresine yazın ve resim al butonuna basın. (var olan resimler gelecektir.)
İyi çalışmalar.

 

[iharda]

Hocam Çok teşekkürler geyet iyi olmuş elinize emeğinize sağlık takıldığım yer olursa tekrar size buradan dönüş yaparım.

 

[iharda]

Hocam aynı tasarımı kopyalayıp sayfanın altından devam ettim kopyaladığım alanda da makronun
çalışması için (For i = 17 To 56) değerini (For i = 17 To 1000) olarak değiştirdim makro çalıştı
Fakat Resim Al butonuna bastığımda sonradan eklediğim alanlar üzerine resimler tekrarlanıyor yani
butona ne kadar basar isem o kadar resim ekleniyor.

 

[muygun]

Merhaba;
Set Alan = Range("B8:L52")

satırında 52 sayısını 1000 yapıp deneyin.

Set Alan = Range("B8:L52")
For Each resim In ActiveSheet.Pictures
If Not Intersect(resim.TopLeftCell, Alan) Is Nothing Then
resim.Delete
End If
Next
Set Alan = Nothing

(bu bu alan tanımlamasındaki resimleri silme satırları)

İyi çalışmalar.

 

[iharda]

Tekrar Çok Teşekkür ederim çok işe yaradı.