AddPics from an Excel List, with GPS Co-ordinates

Guessed · #5 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to import list from Excel into drop-down list into word	ahw	Word VBA	43	02-28-2020 08:11 PM
Advantages of List in Excel vs List in Word?	Peace Freak	Excel	3	04-08-2017 06:15 PM
Having a Drop-down list in Word referring to an Excel list	celias	Word VBA	3	07-11-2016 11:40 PM
Populate Word Drop-down list with Excel column then auto fill form fields with Excel data	Faldinio	Word VBA	7	10-19-2014 06:03 AM
Polar Co-ordinates	NWR	PowerPoint	0	02-18-2013 09:48 PM