Возвращает значение высоты места съемки.

Применяется к:

IExifInfo

Синтаксис:

Visual Basic:

Function GetGPSAltitude() As Double

Пример:

Dim Tools As ZuluTools
Dim Info As IExifInfo

'Создаем объект ZuluTools
Set Tools = New ZuluTools

'Получаем IExifInfo
Set Info = Tools.GetExifInfo( "d:\images\IMG_0156.JPG")

'Проверяем наличие EXIF тэга, содержащего высоту
If  Info.IsTagExists(6)  = True Then

   MsgBox "Altitude: " +  Str(Info.GetGPSAltitude())

End If