Does excel have the capability to retrieve that information from the
photo?
Thanks
--
michael.a7
------------------------------------------------------------------------
michael.a7's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=33027
View this thread: http://www.excelforum.com/showthread.php?threadid=557491
Function ReadBinaryFile(strFile As String) As Variant
Dim hFile As Long
Dim btArray() As Byte
ReDim btArray(1 To FileLen(strFile))
hFile = FreeFile
Open strFile For Binary As #hFile
Get #hFile, 1, btArray
Close hFile
ReadBinaryFile = btArray
End Function
Sub tester()
Dim i As Long
Dim arr
arr = ReadBinaryFile("C:\Image66.gif")
For i = 1 To 20
MsgBox arr(i)
Next
End Sub
RBS
"michael.a7" <michael.a7.2a8ic...@excelforum-nospam.com> wrote
in message news:michael.a7.2a8ic...@excelforum-nospam.com...
RBS
"RB Smissaert" <bartsm...@blueyonder.co.uk> wrote in message
news:eribMycn...@TK2MSFTNGP04.phx.gbl...
http://www.veign.com/vrc_codeview.asp?type=app&id=104
and drag or import the class into a vba project.
The author gave an example of usage but try this crude bit of brute in a
normal module in the same project -
Sub test2()
Dim objExif As New ExifReader
Dim txtExifInfo As String
Dim i As Long, rw As Long
Dim sFile As String
Dim v
sFile = "C:\Path_To_Jpg.jpg"
objExif.Load sFile
For i = 1 To 60000
With objExif
v = .Tag(i)
If Len(v) Then
rw = rw + 1
Cells(rw, 1) = "&H" & CStr(Hex(i))
Cells(rw, 2) = "'" & CStr(v)
End If
End With
Next
'txtExifInfo = objExif.Tag(ISOSpeedRatings)
'MsgBox txtExifInfo
End Sub
Look at the hex codes to see what info your file contains and look these up
under "Public Enum EXIF_TAG" in the class module, then make a more sensible
function to suit your needs.
Regards,
Peter T
"michael.a7" <michael.a7.2a8ic...@excelforum-nospam.com> wrote
in message news:michael.a7.2a8ic...@excelforum-nospam.com...
>