Excel VBAでJPG・GIF・PNGの画像ファイルから画像サイズを取得してみる

ExcelのVBAで画像ファイルから画像サイズを取得するには、LoadPicture関数でオブジェクトとして読み込み、WidthとHeightのプロパティで取得できます。

LoadPicture関数の解説によると対応する画像ファイルの形式は、bmp・ico・rle・wmf・emf・gif・jpgとあるのでPNGファイルは無理かもしれませんが試してみます。

JPGの画像サイズを取得する

LoadPicture関数で読み込み、WidthとHeightプロパティをMsgBoxで表示します。


Option Explicit

Private Sub CommandButton1_Click()
    Dim img As Object

    Set img = LoadPicture(Range("B2"))
    MsgBox "幅：" & img.Width & vbCrLf & "高：" & img.Height
    Set img = Nothing
End Sub

実行結果です。
幅と高さが取得できました。


取得した幅と高さは単位がポイントなので、ピクセルに変換します。


Option Explicit

Private Sub CommandButton1_Click()
    Dim img As Object

    Set img = LoadPicture(Range("B2"))
    MsgBox "幅：" & CLng(img.Width * 0.0378) & vbCrLf & "高：" & CLng(img.Height * 0.0378)
    Set img = Nothing
End Sub

ポイントからピクセルに変換した結果です。


画像ファイルのプロパティで確認すると合っているのが分かります。

GIF・PNGの画像サイズを取得する

GIFファイルに変え、上と同じVBAで実行した結果正常に取得できました。
ファイルのプロパティとも合っていました。