Herhangi bir dosyadan Excel'e resim aktarma

[claver]

Merhaba arkadaşlar;

sitenizi ve diyer siteleri dolaştım ama birtürlü işin içinden çıkamadım, yapmak istediğim showroom diye bir resim klasörüm var içinde yaklaşık 3000 adet resim var ben bunları 1 excel sayfasında a hücresinde resimlerin isimleri b hücresinde resimler olucak resimlerin boyutları otomatik olarak aynı gelecek vede resimin üstüne tıklanınca gerçek resim boyutunda (mesela paintte) açılacak. halit3 arkadaşın vermiş olduğu çoğu örnekleri yapmaya çalıştım ama birtürlü başarılı olamadım ilgi ve yardımlarınız için şimdiden teşekkürler.

 

[Merhum İdris SERDAR]

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

Buradaki dosyaları inceleyin.

.

 

[claver]

yurttas merhaba;

vermiş olduğun örnekler için teşekkürler, ama benim istediğim PERSONEL-RESİMLİ2.zip içindeki 3 sayfa (resim) deki gibi olacak. yani ben showroom adlı resim klasörünün (c:\showroom\*.jpeg) içinden excel'in a hücresine resimlerin ismi (resimlerin adı stok kodudur) b hücresine resmi 165x275 ebatında çevirip daha sonra kullanıcı resimin üzerine tıkladığında gerçek boyutta açılması.

ilgin için tesekkür ederim

 

[Merhum İdris SERDAR]

yurttas merhaba;

vermiş olduğun örnekler için teşekkürler, ama benim istediğim PERSONEL-RESİMLİ2.zip içindeki 3 sayfa (resim) deki gibi olacak. yani ben showroom adlı resim klasörünün (c:\showroom\*.jpeg) içinden excel'in a hücresine resimlerin ismi (resimlerin adı stok kodudur) b hücresine resmi 165x275 ebatında çevirip daha sonra kullanıcı resimin üzerine tıkladığında gerçek boyutta açılması.

ilgin için tesekkür ederim

Ne çabuk incelediniz?

Bir kere belirttiğiniz örnek anladığım kadarı ile sizin isteğinize cevap verecek özellikte değil.

Siz orada eklenen tüm dosyaları inceleyin bir kere. Sonra kendinize en uygun olabilecek örneği seçin. Ondan sonra bir örnek dosya ile istediğinizi belirtirseniz, çözüm bulma kolaylaşır.

.

 

[claver]

benim size vermiş olduğum örnekte sadece görüntü kısmını örnek vermek istemiştim (a hücresine Baba Reis b hücresine resim gelmiş) benim istediğim format bu ama bunu sadece resimler tek bir boyutta gelecek birde resimle a hücresindeki yazıları x bir çalışma sayfasından değil direk resmin adı olacak daha sonrada resimin üzerine tıkladığımda resim orjinal boyutta açılacak.

vede bunla alakalı sitenizi saatlerden beri inceliyorum,
1. bana tavsiye ettiğiniz örneklerde belli bir resim boyutuna çevrilmemiş bu nedeme (dosyadaki boyut 2550x3000 ama excele gelecek olan boyut 165x275 )
2. ben herhangibi bir bilgi girişiminde bulunmayacağım direk resim dosyasından bilgi ve gerekli tüm mataryeller mevcut olacak)
3. 7 dk bir zaman incelemek için az değil bence

ilginiz için çok teşekkür ederim

 

[claver]

sayın yurttas

benim istediğim alttaki linke yakın sadece resimliri çağıramıyor

http://www.excel.web.tr/showthread.php?t=45766&page=2

Klasör içindeki klasör isimlerinin A sütununa listelenmesi (#23 mesaj)

bilginiz olamsı açısından

 

[udentr2002]

İstediğiniz şöyle bir şeymi,

Burda C'nin altında "sertifikalar" adında bir dosya var butona tıkladığınızda o dosya altında bulunan tüm dosyaları isimleri ile birlikte alıyor. Belki bir fikir verir yada yardımcı olur diye ekliyorum.

Not : Bu örneği ya Levent üstat yada Evren üstad hazırlamıştı kendi dosyam için kullandım harika oldu.

 

[Merhum İdris SERDAR]

benim size vermiş olduğum örnekte sadece görüntü kısmını örnek vermek istemiştim (a hücresine Baba Reis b hücresine resim gelmiş) benim istediğim format bu ama bunu sadece resimler tek bir boyutta gelecek birde resimle a hücresindeki yazıları x bir çalışma sayfasından değil direk resmin adı olacak daha sonrada resimin üzerine tıkladığımda resim orjinal boyutta açılacak.

vede bunla alakalı sitenizi saatlerden beri inceliyorum,
1. bana tavsiye ettiğiniz örneklerde belli bir resim boyutuna çevrilmemiş bu nedeme (dosyadaki boyut 2550x3000 ama excele gelecek olan boyut 165x275 )
2. ben herhangibi bir bilgi girişiminde bulunmayacağım direk resim dosyasından bilgi ve gerekli tüm mataryeller mevcut olacak)
3. 7 dk bir zaman incelemek için az değil bence

ilginiz için çok teşekkür ederim

Yani bravo size.

Dosyaların nerdeyse tümünü ben hazırlamış olmama rağmen. İncelemeye kalksam en az yarım saatimi alır.

Her neyse...

Anladığım kadarı ile istediğiniz aşağıda eklediğim dosyadaki gibi bir şey herhalde.


Dosyaları bir dizinin altına çıkarın ve deneyin.


.

 

[claver]

yurttas hocam

dediğiniz doğru ben vbayı incelemedim sadece benim kriterlerime yani istenen özelliklere uyup uymadığını kontrol ettim. halısınız

göndermiş olduğunuz dosyayıda inceledim fakat şöyle birşey var benim excelim sadece 1 sayfadan oluşacak yani bilgiler diye form diye sayfalarım olmayacak sadece sayfa1 üstünde benim resimler klasörümden almış olduğu bilgileri (a1 hücresine 3737(ayrıca 3737 resminadır); b1 hücresinede resimi koyacak, resme tıklandığındada paint gibi programlarda açılacak (bir nevi köprü gibi)

aşağıdaki örnekte istediğim bir klasörü seçiyor içindeki 3000 adet resmin bana isim listesini veriyor ben buna artı olarak fotoğraflarıda 165x175 ebatında size edip yanına konmasını istiyorum

http://www.excel.web.tr/showthread.php?t=45766&page=2

Klasör içindeki klasör isimlerinin A sütununa listelenmesi (#23 mesaj)


sizin çalışmalarınız çok güzel fakat benim isteklerime uymuyor ilginiz için gerçekten çok teşekkür ederim.

 

[claver]

udentr2002 Merhaba

Gönderdiğin örnek için teşekkürler evet aslında istedğim bu ama nasıl a sutununa pdfleri listeliyor ben a sutununa jpegleri saydırıyorum isteğim ise b sutununada resimlerin aynı boyutta gelmesi

ilgin için teşekkür ederim

 

[claver]

arkadaşlar lütfen yardım edebilirmisiniz 3000 tane resimi tek tek yapmaya başladım bunun bir hal yolunu bilen varsa lütfen yardım etsin

 

[udentr2002]

udentr2002 Merhaba

Gönderdiğin örnek için teşekkürler evet aslında istedğim bu ama nasıl a sutununa pdfleri listeliyor ben a sutununa jpegleri saydırıyorum isteğim ise b sutununada resimlerin aynı boyutta gelmesi

ilgin için teşekkür ederim

ordaki kodları

 udentr2002 Merhaba

Gönderdiğin örnek için teşekkürler evet aslında istedğim bu ama nasıl a sutununa pdfleri listeliyor ben a sutununa jpegleri saydırıyorum isteğim ise b sutununada resimlerin aynı boyutta gelmesi 

ilgin için teşekkür ederim

şeklinde denermisin?

O zaman C'nin altında sertifikalar dosyası altındaki jpg uzantılı olanları alacaktır. Diğer sorunun için ben bir şey yapamadım umarım üstatlar çözecektir.

Not: Gönderdiğim kodlar Evren Gizlen üstada aittir.

 

[udentr2002]

düzeltme

Özür yanlış olmuş

udentr2002 Merhaba

Gönderdiğin örnek için teşekkürler evet aslında istedğim bu ama nasıl a sutununa pdfleri listeliyor ben a sutununa jpegleri saydırıyorum isteğim ise b sutununada resimlerin aynı boyutta gelmesi

ilgin için teşekkür ederim

ordaki kodları

 Sub pdf_adlari()
Dim fso As Object, fs As Object
Dim sat As Long
Sheets("Sayfa1").Select
sat = 2
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
Set fso = CreateObject("Scripting.FileSystemobject")
For Each fs In fso.getfolder("C:\Sertifikalar").Files
    If Right(fs.Name, 4) = ".jpg" Then
        Cells(sat, "A").Value = fs
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "Dosya adları alındı." & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

şeklinde denermisin?

O zaman C'nin altında sertifikalar dosyası altındaki jpg uzantılı olanları alacaktır. Diğer sorunun için ben bir şey yapamadım umarım üstatlar çözecektir.

Not: Gönderdiğim kodlar Evren Gizlen üstada aittir.

 

[claver]

merhaba udentr2002 ilgin için teşekkürler

jpeg yaptım oldu isimleri alabiliyorum sağol ama sıkıntım isimlerin yanındaki hücreyede resimlerini koymam lazım inan bana kopyala yapıştır mahfediyor beni inşallah çözerler gerçeği ümidimde var sitedeki yapılan çalışmaları inceledim açıkcası exceli biliyorum diye övünyordum ama yarısını bile bilmiyormuşum uzman arkadaşlar inşallah çözerler ilgin için tekrar teşekkür ederim

 

[makbule1948]

teşekkürler güzel bir çalışma