Resmi istenilen hücreye getirme

[HALILİBRAHIM]

Merhaba Hocalar ,

Ekte gönderdiğim ve sitemizden bulduğum işime yarayacak bir makroda bir türlü resmi sarı alana sığdıramıyorum,
ve resim olmadığında resim yok yazdırmak istiyorum, yardımlarınızı rica ederim.

Hocalar birde müzdarip olduğumuz konu " ActiveSheet.DrawingObjects.Delete " bu kod resim yüklendikten sonra resmi siliyor sanırım fakat sayfadaki bütün resimleri siliyor biz sadece " B7 " hücresini sildiremezmiyiz yani resmin yüklendiği hücreyi çünkü sayfada farklı resimlerde olacak onlarda silinmesin teşekkür ederim.


Saygılarımla Hocalar..

 

[Levent Menteşoğlu]

Bunun en kolay yolu dosyanızdaki sarı alana bir image nesnesi yerleştirin ve resimleri bu nesne içine çağırın. Bir tanede içinde "Resim yok" yazan bir resim oluşturun ve resim bulunamazsa bu resmi image nesnesine çağırırsınız. Aşağıdaki linkte benzer bir konu mevcuttur.

http://www.excel.web.tr/f48/resmi-olmayan-urunler-icin-vba-kodu-t121948.html

 

[Orion1]

Alternatif.:

Sub resim59()
ActiveSheet.Shapes.Range(Array("6 Resim")).Select
Selection.Left = Range("B7").Left
Selection.Top = Range("B7").Top
Selection.Width = Range("B7").Width + Range("C7").Width + _
    Range("D7").Width + Range("E7").Width + Range("F7").Width
For i = 7 To 29
    yukseklik = yukseklik + Range("B" & i).Height
Next
Selection.Height = yukseklik
End Sub

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

Birinci gruptaki sonuncu dosya.

http://www.excel.web.tr/f136/resim-caoyrma-ornekleri-t127079.html

.

 

[HALILİBRAHIM]

Teşekkür ederim hocalar yapmaya çalışacağım

Saygılarımla

 

[ZorBey_]

Merhaba İyi Çalışmalar
2 Örnek Umarım İstediğiniz Gibidir

 

[ZorBey_]

2. Örnek
Image

 

[HALILİBRAHIM]

Çok teşekkür ederim asr hocam çok güzel olmuş tam istediğim gibi fakat farklı bilgisayardayım mailimi yeni gördüm burda yapamadım nedense kendi pc'de de olmazsa son kez rahatsız ederim sizi sağ olun hocam.

 

[HALILİBRAHIM]

ASR hocam hakkınızı helal edin çok teşekkür ederim tam istediğim gibi kontrolünü yaptım size dönemedim işlerden maruz görün Allah razı olsun hocam.

Başarılarınızın devamını dilerim Saygılarımla.

Not:Hocam müsait olursanız eğer başımda büyük bir dert var yeni konu açtım mümkünse bakabilirseniz çok memnun olurum.

Saygılarımla.