Dosyadan Otomatİk Resİm Alma

[as12asdf]

gödermiş olduğum öernekte düşeyara fonksiyonu ile aynı exel sayfasındaki sayfa2 den verileri alabiliyorum

örnekte analiz no girildiğinde sayfa 2 deki o analiz numarasına ait bilgiler geliyor.Ben birde buna ek olarak o analiz numarasına ait resmi (örneğin c:\resim\1.jpeg)de analiz numarası girildiğinde ilgili yere gelmesini istiyorum

resimler ayrı bir klasörde tutuluyor. Örneğin c:\resim

bu işlemi nasıl yapabilirim yardımlarınız için şimdiden teşekkür ederim

 

[İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=22790

Buradaki dosyaları inceleyin.

 

[as12asdf]

yapamadım hata veriyor kodları nasıl kopyalacacağım yada benimkine uyarlayacağım

 

[İdris SERDAR]

Dosyanız ekte.

 

[as12asdf]

teşekürler dosyanızı aldım ancak resimleri isimlerle ilişkilendirmissiniz sanırım ben isimleri değiştirince hata veriyor.

analiz numarası ile ilişkilendirmemiz lazım yani resimlerin isimleri analiz numarası ile aynı olacak

=DÜŞEYARA(A2;VERİLER;3;YANLIŞ) birde bu formülde veriler kısmı sayfada gizlimi

bide ben satırları ve stunları arttırıp yeni değerler girecem formüllerde bi değişiklik olurmu

sizin gönderdiğiniz örneği adım adım anlatabilirmisiniz

 

[İdris SERDAR]

teşekürler dosyanızı aldım ancak resimleri isimlerle ilişkilendirmissiniz sanırım ben isimleri değiştirince hata veriyor.

analiz numarası ile ilişkilendirmemiz lazım yani resimlerin isimleri analiz numarası ile aynı olacak

=DÜŞEYARA(A2;VERİLER;3;YANLI&#350 birde bu formülde veriler kısmı sayfada gizlimi

bide ben satırları ve stunları arttırıp yeni değerler girecem formüllerde bi değişiklik olurmu

sizin gönderdiğiniz örneği adım adım anlatabilirmisiniz

1. VERİLER Ekle/Ad/Tanımla'dan oluşturulmuş bir alan adıdır. Bunu Kendinize göre belirleyin. Dinamik alan yaratmak istiyorsanız ki, bu lazım. Çünkü verileriniz arttıkça alanın sınırlarını her seferinde genişletmeniz gerekecek. Bu nedenle dinamik alan tanımlaması yapın. Bu konu Excel Dersanesi'nde var. İnceleyin.

2. Eğer analiz numaralarına göre resimler çağrılacaksa VERİLER alanını ya da dinamik alanı Sayfa2'de A2'den başlatıp, o zaman formül de =DÜŞEYARA(A2;VERİLER;1;YANLI&#350 şeklini alması gerekir.

3. Resimlerin adları da 1,2,3, gibi Analiz No'ları her neyse onu alması, Ya resimlerin dosya isimleri de analiz numaralarına göre olması gerekir.

4. Sayfa2'deki Resim sütununa da, bu resim dosyalarının bulundukları yol ile adlarının yazılması gerekir.

 

[as12asdf]

peki resimlerin üzerine geldiği image nesnesini nasıl oluşturuyoruz

bide kodların nasıl yerleştirildiğini adımlarmısınız

 

[İdris SERDAR]

Görünüm/Araç Çubukları/Denetim Araç Kutusu'ndan Görüntü nesnesini (Dağ ve güneş olan şekil) seçin.

Ona Kod yazmıyorsunuz. Kodlar ilgili sayfanın Change olayına yazılır.

Bu kodlarda image nesnesinin/ nesnelerinin adları ve resmi alacakları hücre adresleri belirtilir.

Private Sub Worksheet_Change(ByVal Target As Range)
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(['sayfa1'!a5])
Image2.Picture = LoadPicture(['sayfa1'!c5])
End Sub

 

[as12asdf]

yardımlarınız için teşekür ederim sayenizde istediğimi yapabildim
benim 1 sorum daha olacaktı
image üzerine gelecek olan resimler image nesnesi ile sınırladığımız alandan büyük
bu resimler image nesnesinin boyutuna göre nasıl kücültülebilir resim dosyadan çağırılıyor geldiğinde image nesnesine göre boyutu ayarlansın istiyorum.

 

[as12asdf]

tamamdır hallettim aşağıdaki komut ile yaptım

Image2.PictureSizeMode = fmPictureSizeModeStretch
Image2.Width = 275
Image2.Height = 235

 

[İdris SERDAR]

:bravo: :bravo:

 

[as12asdf]

:bravo: :bravo:

sayenizde