PNG画像はLoadPicture関数でエラーになる

画像の情報を取得する際に使われる関数がLoadPicture関数です。

引数に画像ファイルを渡すと戻り値としてPictureクラス型が返却され、画像の幅と高さをピクセル単位で取得することが出来ます。

ただ、LoadPicture関数はJPEG、GIF、BMPファイルは対応しているのですがPNGファイルには未対応です。PNGファイルを開こうとすると「実行時エラー’481′: ピクチャが不正です。」というエラーメッセージが表示されます。

そこでPNGファイルの場合は別の方法で画像の幅と高さを取得することにします。


どうやってPNGファイルの幅と高さを取得するか

Windowsで扱う多くのファイルは拡張子に従ったファイルフォーマットが存在します。具体的には、バイナリデータの先頭の何バイトかを見ると、そのファイルが何のファイルなのかが分かるような識別子が設定されています。

PNGファイルも同様で、バイナリデータを見ると例えば先頭8バイトは「0x89 0x50 0x4E 0x47 0x0D 0x0A 0x1A 0x0A」で固定されており、2、3、4バイト目の3バイトの「0x50 0x4E 0x47」はASCIIコードでの文字でいうと’P’ ‘N’ ‘G’、即ち、「PNG」と書かれています。

あとは画像の幅と高さですが、17バイト目から20バイト目の4バイトが幅を表し、21バイト目から24バイト目の4バイトが高さを指します。

なので、バイナリデータを取得して16進数を10進数に変換すれば画像の幅と高さのピクセルサイズを取得できます。


PNGファイルの幅と高さを取得するコード

以下の関数は3つの引数があり、1番目のa_sPngPathがPNGファイルのフルパス、2番目のa_lWidthが取得したPNGファイルの幅を返し、3番目のa_lHeightが取得したPNGファイルの高さを返します。



処理概要

詳細はコメントに書いているので処理概要や使い方を補足します。

引数で渡されたPNGファイルのバイナリデータを先頭から24バイト取得します。

先頭から16バイトはPNGファイルを示す固定のデータが設定されているため、If文で各バイト値がPNGファイルフォーマットとして正しいのかをチェックします。

PNGフォーマットの詳細は省略しますが、以下の図の薄緑部分がPNGフォーマットかどうかを判定する16バイトで、黄色部分は幅、オレンジ部分は高さを指します。

PNGファイルフォーマットとして正しければ、幅の4バイトと高さの4バイトから算出して引数に設定します。

使い方は以下のようなコードになります。

GetPngWidthHeight関数の1番目にPNGファイルのフルパス、2番目にPNGファイルの幅を受け取るLong型変数、3番目に戻り値用のPNGファイルの高さを受け取るLong型変数を指定します。

正しく取得できていればPNGファイルの幅と高さを取得できます。


エラー処理

上記のPNGファイルの幅と高さを取得する関数ですが、引数で渡されたファイルが存在するかどうかのチェックなどは入れていません。

そのあたりが必要な場合は呼び出し元でチェックするか、ファイル存在チェックの処理を追加してください。

なお、ファイルの存在チェックについては「VBAでファイルの存在をチェックする」をご参照ください。