Microsoft Office Forums - View Single Post - [Solved] AddPics from an Excel List, with GPS Co-ordinates

Guessed · 12-05-2022, 08:25 PM

The code provided by omegastripes on this stackoverflow thread works when the image has the GPS data on it
Excel VBA open folder and get GPS info (Exif) of each files in it (2) - Stack Overflow

The code was using late binding to make use of a library called 'Microsoft Windows Image Acquisition Library'

Code:

Sub Test()
    With CreateObject("WIA.ImageFile")
        .LoadFile "C:\Test\image.jpg"
        With .Properties("GpsLatitude").Value
            Debug.Print .Item(1).Value + .Item(2).Value / 60 + .Item(3).Value / 3600
        End With
        With .Properties("GpsLongitude").Value
            Debug.Print .Item(1).Value + .Item(2).Value / 60 + .Item(3).Value / 3600
        End With
    End With
End Sub

When I tried it on some image files without GPS data it errors so an error checker will be required.