【VBA】画像の幅と高さを取得する

Microsoft Windows Image Acquisition (WIA) Automation Layerは画像を操作するライブラリです。
VBAの参照設定を行うことでPNG画像やJPG画像の情報を取得することができます。

Microsoft Windows Image Acquisition Automation Layerの目的(Purpose)の部分を参照してみると
画像の処理用ライブラリであることが書かれてます。

The Windows Image Acquisition (WIA) Automation Layer is a full-featured image manipulation component that provides end-to-end image processing capabilities

Windows Image Acquisition (WIA) Automation Layerは、エンドツーエンドの画像処理機能を提供する
フル機能の画像処理コンポーネントです。

画像情報取得する
画像の幅と高さをシートに記入する

画像情報取得する

C:\wiatestフォルダ内にpngとjpgの画像を置きました。

幅100x高さ150のpng画像
幅200x高さ250のjpg画像

Windows Image Acquisition Automationの機能を使用するには参照設定が必要です。
Microsoft Windows Image Acquisition Libraryにチェックをつけます。

ImageFileオブジェクトを使用して画像を取り込み、PNG画像とJPG画像の幅と高さをそれぞれ取得して
イミディエイトウィンドウに表示します。

Option Explicit

Sub PrintPictureInfo()

  Dim pngImg As New ImageFile
  pngImg.LoadFile "C:\wiatest\100x150.png"
  Debug.Print "PNG画像の幅:" & pngImg.Width
  Debug.Print "PNG画像の高さ:" & pngImg.Height
  
  Dim jpgImg As New ImageFile
  jpgImg.LoadFile "C:\wiatest\200x250.jpg"
  Debug.Print "JPG画像の幅:" & jpgImg.Width
  Debug.Print "PNG画像の高さ:" & jpgImg.Height
  
  Set pngImg = Nothing
  Set jpgImg = Nothing

End Sub

Option Explicit

Sub PrintPictureInfo()

Dim pngImg As New ImageFile

pngImg.LoadFile "C:\wiatest\100x150.png"

Debug.Print "PNG画像の幅:" & pngImg.Width

Debug.Print "PNG画像の高さ:" & pngImg.Height

Dim jpgImg As New ImageFile

jpgImg.LoadFile "C:\wiatest\200x250.jpg"

Debug.Print "JPG画像の幅:" & jpgImg.Width

Debug.Print "PNG画像の高さ:" & jpgImg.Height

Set pngImg = Nothing

Set jpgImg = Nothing

End Sub

イミディエイトウィンドウにPNG画像とJPG画像の幅と高さが出力されます。

PNG画像の幅:100
PNG画像の高さ:150
JPG画像の幅:200
PNG画像の高さ:250

PNG画像の幅:100

PNG画像の高さ:150

JPG画像の幅:200

PNG画像の高さ:250

画像の幅と高さをシートに記入する

Sheet1シートのA列2行以降に画像パスを記入しました。
この画像パスを元に画像の幅と高さを取得し、B列に画像の幅、C列に画像の高さを記入してみます。

Option Explicit

'画像の幅と高さを保存する構造体
Type PictureInfo
  Width As Long
  Height As Long
End Type

Function GetPictureInfo(path As String) As PictureInfo

  Dim pi As PictureInfo
  Dim img As New ImageFile
  
  img.LoadFile path
  pi.Width = img.Width
  pi.Height = img.Height
  GetPictureInfo = pi
  
  Set img = Nothing

End Function

Option Explicit

'画像の幅と高さを保存する構造体

Type PictureInfo

Width As Long

Height As Long

End Type

Function GetPictureInfo(path As String) As PictureInfo

Dim pi As PictureInfo

Dim img As New ImageFile

img.LoadFile path

pi.Width = img.Width

pi.Height = img.Height

GetPictureInfo = pi

Set img = Nothing

End Function

GetPictureInfoを呼び出してシートに画像の幅と高さを記入してみます。

Sub TestGetPictureInfo()

  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("Sheet1")
  
  Dim pi As PictureInfo
  pi = GetPictureInfo(sht.Cells(2, 1))
  sht.Cells(2, 2) = pi.Width
  sht.Cells(2, 3) = pi.Height
  
  pi = GetPictureInfo(sht.Cells(3, 1))
  sht.Cells(3, 2) = pi.Width
  sht.Cells(3, 3) = pi.Height
  

End Sub