VBAからGDI+を使う資料集
inet上の達人の方々から御教示いただいたコードを少しアレンジさせてもらっています(切り貼りとも言います)。
  1. ホーム
  2. clGdiPlus
  3. Exif情報取得1


Exif情報 デジカメ写真の撮影日時を取得

デジカメ写真の撮影日時(秒まで)を取得します


Sub readDate()
    Dim clGdip As clgdiplus
    Set clGdip = New clgdiplus
    clGdip.OpenFile "C:\IMG_1234.JPG"
    ' Date of exposure
    Debug.Print Format(clGdip.GetExifData(TagDateTimeOriginal), "yyyy/mm/dd" & " " & "hh:nn:ss")
    Set clGdip = Nothing
End Sub

取得できるタグとしては、
TagExposureTime = &H829A&
TagFNumber = &H829D&
TagExposureProgram = &H8822&
TagSpectralSensitivity = &H8824&
TagISOSpeedRatings = &H8827&
TagShutterSpeedValue = &H9201&
TagApertureValue = &H9202&
TagBrightnessValue = &H9203&
等、多数が存在する。詳細はクラスの中味(最初の方の列挙体)を確認下さい。