Formül sonucuna göre hücreye resim eklemek/çağırmak

[mustafakoker]

Teşekkür ederim yine yardımların için

 

[abinkays]

çok teşekkürler

 

[turkuaz81]

Sayın 1Al2Ver zaman harcadıınız için teşekkür ederim fakak ufak bir sorun var
Sayfa2 D sütununa A sütunundaki objelerin yolunu yazın demişsiniz bu resimler pc de kayıtlı olmayan resimler hepsi excel tablomda sayfa 2 de A1den aşağıya doğru oradan çekeceğiz resimleri
C:\Documents and Settings\MUSTAFA KÖKER\Belgelerim\Resimlerim\teknik resim005 bu şekilde pc den yol vermeyeceğiz çünkü bu resimlerin kodları ile sürekli değişen form olusacak ve form meil olarak gidecek tekrar aynı işlemler farklı resim koduyla döngü olacak

Daha önce paylaşılan ekteki dosya işinizi görecektir. Paylaşan arkadaşın adını hatırlamadığım için, yazamıyorum özür dilerim.

 

[Merhum İdris SERDAR]

Daha önce paylaşılan ekteki dosya işinizi görecektir. Paylaşan arkadaşın adını hatırlamadığım için, yazamıyorum özür dilerim.

Bu dosya ile birlikte diğer dosyalar da burada.

http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-ornek-dosya-t22790.html


.

 

[turkuaz81]

Demekki yurttas üstadınmış.

 

[selmankara]

Arkadaşlar merhaba, ben excel sayfamda eğer hücre doluysa hücreye bir resim eklenmesini istiyorum. Bunun VB kodunu verebilir misiniz? Resmin ismi carpi.gif olsun.

- Bu resmi excel de nereye koymam gereklidir?
- Bu işlemi ben yaklaşık 100 civarı sıralı olmayan hücreye uygulayacağım, kod buna uygun olmalı.

Şimdiden çok teşekkür ediyorum...

 

[supre]

Maalesef personel - resimli 2 yi birçok denememe rağmen beceremedim.
Bendeki hücrelerin isimleri ile güncelledim kodları ama olmadı bir türlü
daha kolay anlatımlısı var mıdır acaba? önemli olan resimli 2 şeklinde dosyayı yapabilmem

 

[emsey]

Hücreye c:/den resim çekme problemi

Değerli üstadlar.

Benim ekteki tablodaki DE sütununda C:'deki fotoğrafların yolu görünmektedir.

Ben bu DE sütuna C:'den fotoğraf çekmek istiyorum.

aşağıdaki kodlar ile image nesnesine resim çekebiliyorum ama 100 civarı image nesnesi ekleyince ve aşağıdaki kodu 100 kere çoğaltınca program ciddi anlamda mb. kaplıyor ve kasıyor. Bu sebeple bir makro ile "DE" sütunundaki yola göre resimler gelecek boş olan hücrelere hiçbir şey gelmeyecek. Normal zamanda makroyu çalıştırmayınca resimlerin gelmesine gerek yok çünkü resimler her daim olunca program kasıyor. Bilmem istediğimi anlatabildim mi? Bu konuda yardımcı olursanız çok memnun olurum. İlginize şimdiden teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
'sayfadaki hücrelerde bir değişiklik olduğunda image1 nesnesine Resim çağırır
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(['rapor'!de6])

Image2.PictureSizeMode = fmPictureSizeModeZoom
Image2.Picture = LoadPicture(['rapor'!de7])



End Sub

 

[emsey]

Yardımcı olacak kimse yok mu?

 

[tahsinanarat]

sn. mustafaoker'in sorusuna

Resimler form sayfasında gömülü durumda, resimlerinizi ekle/resin/dosyadan seçerek ekliyorsunuz, eklediğiniz resime verilen otomatik resim ismini örneğin Resim 44 diye verdiği ismi sayfa3 de siz Picture 44 diye b sutununda adlandırıp bu resme ait kodu ise a sutunundaki aynı satıra yazıyorsunuz. kod H1 (siz kendinize göre değiştirdiğinizde a1 hücresindeki formülde belirtirsiniz) hücresine girdiğinizde resim a1 hücresinde belirecektir.

Resimlerin hepsini görmek için sayfa kodundak
Me.Pictures.Visible = False satırı
Me.Pictures.Visible = True olarak değiştirip kodu çalıştırdığınızda resimlerin hepsi görülecektir, dikkat edin resimler üstüste olabilirler.
Ekli dosyayı inceleyiniz.

 

[tahsinanarat]

Sn. emsey'in sorusuna cevaben

Belirtilen personel fotoğraflarının bulunduğu resim isimlerini öncelikle a sutununda bulunan personel TC kimlik numaralarını yazarak değiştirip ekteki dosyayı deneyiniz. a sutunundaki tc kimlik numarasının bulunduğu hücre içerisinde F2 enter yapıldığında resim DE hücresinde görülecektir.

 

[emsey]

Çok kıymetli cevap için teşekkür ederim. Emeklerinize sağlık. Yalnız benim istediğim bu şekilde değil. Neden diyecek olursanız. mesajımda belirttiğim gibi excel dosyasının içinde olmayan resimleri C:\içinde bir klasörden mesajımda belirttiğim kodlar ile picture nesnesinin içine çekebiliyorum. Bu vesile ile resimler excel dosyasına daha önceden yüklenmemiş olduğu için program kasmıyor ve excel programının kapasitesi gereksiz yere 10 megabyte üzerine çıkmamış oluyor. Yani bu sizin çalışmanız benim istediğimin aksine çalışıyor gibi.

Ben kod girince fotoğraf çağrılması değilde. Personelleri rapor aldığımda personellerin fotoğraflarınında gelmesini istiyorum.

Başka yardımcı olabilecek bir arkadaş yok mu? İstediğim çok zor mu?

Resimler form sayfasında gömülü durumda, resimlerinizi ekle/resin/dosyadan seçerek ekliyorsunuz, eklediğiniz resime verilen otomatik resim ismini örneğin Resim 44 diye verdiği ismi sayfa3 de siz Picture 44 diye b sutununda adlandırıp bu resme ait kodu ise a sutunundaki aynı satıra yazıyorsunuz. kod H1 (siz kendinize göre değiştirdiğinizde a1 hücresindeki formülde belirtirsiniz) hücresine girdiğinizde resim a1 hücresinde belirecektir.

Resimlerin hepsini görmek için sayfa kodundak
Me.Pictures.Visible = False satırı
Me.Pictures.Visible = True olarak değiştirip kodu çalıştırdığınızda resimlerin hepsi görülecektir, dikkat edin resimler üstüste olabilirler.
Ekli dosyayı inceleyiniz.

 

[tahsinanarat]

Peki resimler kapanışda tek bir tuşa basarak silinip, açıldığında yada gerektiğinde tek tuş ile getirilse olur mu?
Gerçi ne istediğinizi tam olarak anlayamadım, personelin resimleri hangi personelin üzerine geldiğinde mi görünmesini istiyorsunuz, başka personele geçinde o resim kaybolup bulunduğunuz personelin resminin mi gelmesini istiyorsunuz, rapordan söz etmişsiniz alacağınız rapor örneği nasıl olacak, rapordaki personellere ait resimler siz bir butona bastığınızda mı gelecek, yada rapor alınırkenmi gelecek, bunları açık belirtirseniz iyi olur.

 

[emsey]

Tamam şimdi şu şekilde izah etmem gerekirse.

Bir tane excel sayfasında personellerin tüm özlük bilgilerini yatay bir şekilde ve her satırda bir personel olmak üzere userformdan textboxlardan giriş yaptırarak saklıyorum. Personellerin fotoğrafları için ise veri giriş yaptığım userformda tc kimlik numarası ile ilgili textboxtan faydalanarak "c:\" + tckimlik no + ".jpg" şeklinde örneğin c:\1234567890.jpg şeklinde bir yoluda yukarıda bahsettiğim sayfaya kayıt işlemi esnasında ilgili personel özlük bilgilerinin sonuna, bu fotoğraf yolununda kaydedilmesini sağlıyorum.

Daha sonra Diğer excel sayfalarında çeşitli formlar var ve istediğim tüm formları bu excel sayfasından veri çekerek yapıyorum. Yalnız formlar sadece bir personele ait formdur. Örneğin, iş sözleşmesi, personel özlük formu, vs. gibi. Bu formlarda personelin fotoğrafını ise yine yataydaki personellerin kayıtlı olduğu excel sayfasına daha önce kaydettirdiğim c:\1234567890.jpg gibi olan you fotoğrafın denk geleceği hücreyle aynı boyutta oluşturduğum image nesnesi içine çekiyorum. Bu tek bir kişiye ait olan formdaki kişinin fotoğrafını çekmekte sıkıntı yaşamıyorum.

Daha sonra doğan ihtiyacım şu şekilde. Yatayda tüm personel özlük bilgilerini kaydetmiş olduğum excel sayfasından çeşitli süzme işlemleri yaptırarak yeni süzülen dosyaları yeni bir excel sayfasına çekiyorum ve orada bir çok gereksiz sütunun yok edilmesini sağlayarak yatay ve özet bir personel listesi almak istiyorum. Buraya kadar sıkıntı yok.

İstediğim şekilde süzmeyi yapıp fazla sütünları sildirip tabloyu oluşturuyorum.
Bu tabloda en sondaki sütünda her personelin kendi fotoğrafının yolu var. örneğin: c:\1234567890.jpg gibi.

Son olarak ekte göndermiş olduğum soru.xlsx içinde bulunan en sondaki sutündaki personel fotoğraflarının yoluna göre, süzme işlemi yaptırıp gereksiz sutünları sildirip tabloyu oluşturduktan sonraki komuttan sonra o hücreye personelin fotoğrafının C:\ içinden çağrılmasını istiyorum.

Yeni bir süzme işleminden önce ise bu tablonun tekrar yeni verilerin geleceği hücrelerini silmek istiyorum. Haliyle eski süzme işleminden kalan tüm fotoların ve fotoğrafl yolunun yani c:\1234567890.jpg silinmesini istiyorum.

Bu silme işlemi userform kapatılıncada yapabilmeliyim ki. Tüm fotoğraflar excel sayfası içinde kalıpta gereksiz yere kapasiteyi şişirmesin.

Durumu bilmem anlatabildin mi? Daha önce bir çok sıkıntıyı çözdüm ama burada takılıp kaldım. Adminden, uzman arkadaşlardan, siz değerli yardımsever dostlardan yardım talep etmekteyim.

Peki resimler kapanışda tek bir tuşa basarak silinip, açıldığında yada gerektiğinde tek tuş ile getirilse olur mu?
Gerçi ne istediğinizi tam olarak anlayamadım, personelin resimleri hangi personelin üzerine geldiğinde mi görünmesini istiyorsunuz, başka personele geçinde o resim kaybolup bulunduğunuz personelin resminin mi gelmesini istiyorsunuz, rapordan söz etmişsiniz alacağınız rapor örneği nasıl olacak, rapordaki personellere ait resimler siz bir butona bastığınızda mı gelecek, yada rapor alınırkenmi gelecek, bunları açık belirtirseniz iyi olur.

 

[tahsinanarat]

Bunu bir deneyin isterseniz

Fotoğrafların gelmesini istediğiniz (son haliyle süzülmüş ve aktarılmış olan sayfa için) DE sutununa, resimleri getir butonuna bastığınızda tüm resimler gelecek, istediğinizde ise tek butonla saadece resimleri silebileceksiniz. Umarım istediğiniz gibi olmuştur.

 

[emsey]

Evet çok güzel olmuş elinize emeğinize sağlık. Şimdi kendi kodlarımın içine ekledim oldu gibi görünüyor. Allah razı olsun.

Fotoğrafların gelmesini istediğiniz (son haliyle süzülmüş ve aktarılmış olan sayfa için) DE sutununa, resimleri getir butonuna bastığınızda tüm resimler gelecek, istediğinizde ise tek butonla saadece resimleri silebileceksiniz. Umarım istediğiniz gibi olmuştur.

 

[emsey]

Bu fotoğrafları hücrenin içinde ortalamak ve hepsini standart bir boyutta yapma imkanımız var mı? Bazıları taşıyor, bazıları kısa kalıyor. Hücrenin üst ve alt tablo çizgilerine tam oturduğu için tablo çizgileri görünmüyor. Tam hücreye oturtmalı, yada hücreden bir piksel küçük ve tam ortada olmalı ki tablo çizgileri kutu gibi ve ortasında da resim olsun.

Bu şekilde bir komut verebilir miyiz.

 

[asi_kral]

Bu fotoğrafları hücrenin içinde ortalamak ve hepsini standart bir boyutta yapma imkanımız var mı? Bazıları taşıyor, bazıları kısa kalıyor. Hücrenin üst ve alt tablo çizgilerine tam oturduğu için tablo çizgileri görünmüyor. Tam hücreye oturtmalı, yada hücreden bir piksel küçük ve tam ortada olmalı ki tablo çizgileri kutu gibi ve ortasında da resim olsun.

Bu şekilde bir komut verebilir miyiz.

Merhaba
Boş bir module tıklayın ve bu kodları ekleyin deneyin.
Daha sonra butona atayabilirsiniz.
Dosya kapatıldığında resimlerin tamamı silinir.

Option Explicit
Sub resim_getir_1967()
'Konu       :   Hücrede Yazan Adrese Göre Resim Getir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By  :   asi_kral_1967
Dim SAT As Long, AÇ As Variant, SİL As Variant
AÇ = ActiveCell.Address
Application.ScreenUpdating = False
For Each SİL In ActiveSheet.Shapes
If SİL.Type = 13 Then SİL.Delete
Next
For SAT = 6 To Cells(Rows.Count, "C").End(xlUp).Row
If Cells(SAT, "DE") <> Empty Then
Cells(SAT, "DE").Select
ActiveSheet.Pictures.Insert(Cells(SAT, "DE").Text).Select
Selection.Top = ActiveCell.Top
Selection.Left = ActiveCell.Left
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = ActiveCell.Height
Selection.ShapeRange.Width = ActiveCell.Width
End If: Next
Range(AÇ).Select
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub
Sub auto_close()
Dim SİL As Variant
Application.ScreenUpdating = False
For Each SİL In ActiveSheet.Shapes
If SİL.Type = 13 Then SİL.Delete
Next
Application.ScreenUpdating = True
End Sub

Dosyanız Ekte.

 

[tahsinanarat]

Resimleri dediğiniz şekilde ortalamak için

öncekinde resim hücre boyutuna göre geliyordu, şimdi resim boyutunu bizim belirlememiz gerekiyor.
aşağıdaki kodlardan kendinize göre ayarlayınız.

Selection.ShapeRange.Height = 96 'yükseklik
Selection.ShapeRange.Width = 78 'genişlik
Selection.ShapeRange.IncrementLeft 3 'sağa kaydır
Selection.ShapeRange.IncrementTop 2.5 'aşağı kaydır

Ekli dosyayı inceleyiniz.

 

[tahsinanarat]

a sutununda hücreye girildiğinde;

Farklı bir çalışma, a sutununda hücreye girildiğinde hücrenin sağında resim gösterir, hücreden çıkıldığında resim kaybolur. Dosya yolu X1 hücresine (C:\PERSONEL_RESIMLERI\) girilmiştir.
Not: bu kullandığım kodların tamamı evvelce bu siteden temin edilmiş olup, emeği geçen üstatlarıma saygılar sunarım.