VBAにおける画像サイズ（横×縦）取得の技術的アプローチと最適解
Excel VBAを用いた画像処理は、自動レポート作成やダッシュボード構築において非常に需要の高い領域です。特に、外部から読み込んだ画像ファイルのサイズを動的に取得し、セルに合わせて自動リサイズしたり、レイアウトを調整したりする処理は、プロフェッショナルなツールを作成する上で避けて通れない技術です。
しかし、VBA標準の機能だけでは、画像ファイルのメタデータ（解像度情報）を直接読み取ることはできません。多くの場合、画像を一度シート上に読み込んでからサイズを取得するという非効率なアプローチがとられがちですが、これではメモリ消費や処理速度の面で大きな欠点となります。本稿では、バイナリ解析を用いた高速かつ効率的な画像サイズ取得手法を中心に、プロフェッショナルな実装技術を詳説します。
画像サイズ取得の課題と従来手法の限界
VBAで画像サイズを取得しようとする際、初心者が陥りやすいのが「一旦シートに貼り付けてからShapeオブジェクトのWidth/Heightプロパティを参照する」という手法です。
この手法には致命的な欠点が3つあります。
1. 処理速度の低下：画像ファイルを読み込み、描画オブジェクトを作成するプロセスは非常に重い処理です。大量の画像を扱う場合、Excelがフリーズする原因となります。
2. メモリ消費：画像が大きければ大きいほどメモリを占有し、大規模なブックではパフォーマンスが著しく低下します。
3. 信頼性の欠如：ピクセル単位の正確なサイズ取得において、Excelの表示倍率やDPI設定の影響を受ける可能性があり、純粋な画像データのサイズを取得するのには適していません。
真にプロフェッショナルなエンジニアは、画像ファイルをバイナリデータとして開き、ヘッダー情報を解析することで、描画を介さずにサイズを取得します。
バイナリ解析による画像サイズ取得のメカニズム
画像ファイル（JPEG, PNG, GIF, BMPなど）には、それぞれ特定の「ヘッダー」が存在します。このヘッダーの特定のオフセット位置に、画像の横幅と縦幅を示す情報が格納されています。
例えば、JPEGファイルの場合、マーカーセグメントと呼ばれる構造の中に「SOF（Start of Frame）」というデータがあり、そこにサイズ情報が含まれています。PNGファイルの場合は、IHDRチャンクというセクションにサイズ情報が明記されています。
これらをVBAで読み取るには、ADODB.Streamオブジェクトを使用します。バイナリモードでファイルを開き、特定のバイト位置を読み取って、ビッグエンディアン（またはリトルエンディアン）の並びを数値に変換する処理を行います。
サンプルコード：JPEG画像サイズ取得の実装
以下に、外部ライブラリに依存せず、VBA標準のみでJPEG画像のサイズを取得する実用的なコードを示します。このコードは、ファイルを開かずにバイナリを直接読み取るため、非常に高速に動作します。
Option Explicit
' JPEG画像のサイズを取得する関数
Public Sub GetJpegDimensions(ByVal filePath As String, ByRef width As Long, ByRef height As Long)
Dim stream As Object
Dim buffer() As Byte
Dim i As Long
Set stream = CreateObject("ADODB.Stream")
stream.Type = 1 ' Binary
stream.Open
stream.LoadFromFile filePath
' JPEGのマーカーを探す
' FF D8で始まるのがJPEG
buffer = stream.Read(1000) ' ヘッダー部分を読み込み
i = 0
Do While i < UBound(buffer) - 9
' 0xFFの後ろがマーカーの種類
If buffer(i) = &HFF Then
' SOF0 (Baseline DCT) は 0xC0
If buffer(i + 1) = &HC0 Then
' 次の2バイトが長さ、その次が精度、その次2バイトが高さ、その次2バイトが幅
height = (buffer(i + 5) * 256) + buffer(i + 6)
width = (buffer(i + 7) * 256) + buffer(i + 8)
Exit Do
End If
i = i + 1
Else
i = i + 1
End If
Loop
stream.Close
End Sub
' 実行用ラッパー
Public Sub TestGetImageSize()
Dim w As Long, h As Long
Dim path As String
path = "C:\Temp\sample.jpg"
Call GetJpegDimensions(path, w, h)
MsgBox "幅: " & w & "px, 高さ: " & h & "px"
End Sub
実務における実装アドバイス
実務の現場では、単にサイズを取得するだけでなく、複数のフォーマット（JPEG, PNG, GIF）を混在させて処理するケースがほとんどです。その際の注意点をいくつか挙げます。
1. エラーハンドリングの徹底
バイナリ解析はファイルフォーマットが破損している場合にエラーを吐きやすい性質があります。特に、拡張子がJPEGでも中身が別のファイル形式である場合や、無効なバイナリデータが含まれている場合は、必ずOn Error Resume Next等を用いて解析をスキップするロジックを組み込んでください。
2. PNG対応の複雑さ
PNGはJPEGよりもヘッダー構造が複雑で、IHDRチャンクの位置が固定ではありません。PNGを完全にサポートする場合、チャンクごとのサイズを計算しながらオフセットを進めるループ処理が必要です。もしPNGの解析が必要な場合は、WIA（Windows Image Acquisition）ライブラリを使用するアプローチも検討に値します。
3. WIAライブラリ（Windows Image Acquisition）の活用
バイナリ解析が難しい、あるいはメンテナンス性を重視する場合、Microsoft Windows Image Acquisition Library v2.0を利用するのが最も確実です。これはWindowsに標準搭載されているライブラリであり、参照設定から「Microsoft Windows Image Acquisition Library v2.0」を選択することで使用可能です。
' WIAを使用したサイズ取得の例
Public Sub GetImageSizeWIA(ByVal filePath As String)
Dim img As Object
Set img = CreateObject("WIA.ImageFile")
img.LoadFile filePath
Debug.Print "Width: " & img.Width
Debug.Print "Height: " & img.Height
End Sub
この方法はコードが極めて簡潔であり、あらゆる画像フォーマットをサポートしているため、実務上の推奨度はこちらの方が高いといえます。
プロフェッショナルな設計思想
技術選定において重要なのは、「速度」と「保守性」のバランスです。今回紹介したバイナリ解析手法は、極限までパフォーマンスを求める極めて大規模なバッチ処理には最適ですが、コードの複雑性が増し、メンテナンスコストが高くなります。
一方で、WIAライブラリを使用する方法は、コードの可読性が高く、将来的な仕様変更にも強いというメリットがあります。ベテランエンジニアとしては、まずはWIAを用いた実装を検討し、それが環境上の制約（特定の環境でWIAがインストールされていない、あるいはセキュリティポリシーで制限されているなど）で使えない場合にのみ、バイナリ解析手法を採用するというアプローチを強く推奨します。
また、取得したサイズ情報を活用してセルに画像を配置する際は、アスペクト比を固定するロジック（LockAspectRatio）を必ず組み込んでください。画像の幅と高さを取得できたとしても、配置時に比率が崩れてしまっては、データの価値が損なわれてしまいます。
まとめ
VBAにおける画像サイズ取得は、Excelの描画エンジンを通さないバイナリ解析またはWIAライブラリの利用がプロフェッショナルの定石です。従来型の「シートに貼り付けてからサイズを取得する」手法は、現代の業務アプリケーション開発においては「アンチパターン」であると認識すべきです。
本記事で解説した手法を適切に使い分けることで、高速で安定したExcel自動化ソリューションを構築することが可能となります。技術的な負債を残さないためにも、常に「なぜその手法を採用するのか」という根拠を明確にし、保守性の高い実装を心がけてください。
VBAは、正しく使えばこれほど強力な自動化ツールはありません。細部へのこだわりこそが、エンジニアの力量を分ける境界線となります。ぜひ、自身のプロジェクトでこれらの手法を試してみてください。
