Доброе время суток.
Если доступна библиотека Microsoft Windows Image Acquisition Library (вроде штатно есть с Window XP), то можно таким макросом
[vba]Код
Public Sub GetLatLon()
Dim pImg As New WIA.ImageFile
Dim propCol As WIA.Properties
Dim nextProp As WIA.Property
Dim pVector As WIA.Vector
pImg.LoadFile "C:\Path\7128895.jpg"
Set propCol = pImg.Properties
For Each nextProp In propCol
Set pVector = Nothing
If (nextProp.Name = "GpsLatitude") Or (nextProp.Name = "GpsLongitude") Then
Set pVector = nextProp.Value
Debug.Print nextProp.Name & " = " & _
CStr(pVector(1).Value) & "°" & _
CStr(pVector(2).Value) & "’" & _
CStr(pVector(3).Value) & "”"
End If
Next
Set pImg = Nothing
End Sub
[/vba]
Успехов.