• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Fotoğrafın Bilgilerini Alma

  • Konbuyu başlatan Konbuyu başlatan Merturk
  • Başlangıç tarihi Başlangıç tarihi
Katılım
25 Ağustos 2010
Mesajlar
73
Excel Vers. ve Dili
MS Office 2007
Merhaba arkadaşlar,

Bilgisayarımda farklı isimlerle aynı fotoğraflar var. İnternette bunla ilgili "Duplicate Finder" isimli program da var. Yani çoklayan resmi buluyor ve uçuruyor.
Ben bunu makro ile yapmaya çalıştım. Bir noktaya kadar da başardım diyebilirim. Bir klasör içindeki dosyaların bilgilerini excele alabiliyorum. Bu bilgiler adı, boyutu, yaratılma tarihi vs.

Fakat burada alamadığım tek temel bilgi fotoğrafın çekildiği tarih. Aslında bunu alabilsem kusursuz diyebileceğim hale gelecek. Araştırdım ama maalesef bulunmuyor. İngilizce kaynaklarda bir şeyler var ama onları uygulamak da mümkün olmadı benim açımdan. Fotoğrafın çekildiği tarih "date taken" olarak anılıyor ya da exif bilgisi.

Yardımcı olabilecek birileri varsa çok sevinirim.

Teşekkür ederim.
 
"Date Taken" bilgisi fotoğraf dosyasına gömülü olarak işlenmişse alabilirsiniz, yoksa alamazsınız....

.Untitled.png


Untitled.png
 
Son düzenleme:
Peki hocam o bilgiyi nasıl alabilirim? @Haluk

Aşağıdaki bilgilerin hepsini alıyorum ama sadece 'Date Taken' kaldı.

Cells(r, 1) = FileItem.Path
Cells(r, 2) = FileItem.Size
Cells(r, 3) = FileItem.Type
Cells(r, 4) = FileItem.DateCreated
Cells(r, 5) = FileItem.DateLastAccessed
Cells(r, 6) = FileItem.DateLastModified
 
Dediğim gibi, "Exif" bilgileri gömülmüşse alabilirsiniz. Yoksa, alamazsınız.

Fotoğraf dosyasını sağ tıklayın, yukarıda eklediğim özelliklere bakın.... Eğer aradığınız bilgi orada varsa, VBA ile alınır.

.
 
Gerekli bilgiler varsa, aşağıdaki linkte yer alan kodu kendinize göre ayarlarsınız....


.
 
Gerekli bilgiler varsa, aşağıdaki linkte yer alan kodu kendinize göre ayarlarsınız....


.

Çok teşekkür ediyorum. İstediğim bilgiye bu sayede ulaştım.
 
Geri
Üst