EXIF orientation

[hvw]

Hi,

is there a way to read the EXIF data in order to find out and use the camera position in a macro.

Thanks

[shelbym]

I was able to do this with the ExifReader class found here: Exif reader class/dll for VB 6

Then to use is, try something like:

Sub ReadEXIFData()
    Dim objExif As New ExifReader
    Dim txtExifInfo As String
    
    objExif.Load "D:\Temp\EXIF\2.JPG"
    txtExifInfo = objExif.Tag(Orientation)
    MsgBox txtExifInfo
End Sub

Hope that helps,

-Shelby

[hvw]

Shelby,

Thanks a lot, it works fantastic.