PNG画像の大きさ取得(エクセルvba)

PNG画像の幅と縦の取得ができなくて困っています。
PNG以外でしたら、下記の関数に画像ファイルのパスを渡せば求められるのですが、 LoadPicture関数がPNG未対応のようです。

Sub subGetPicSize(PicPath As String)
Dim P
Set P = LoadPicture(PicPath)
MsgBox CLng(P.Width * 0.0378) & "×" & CLng(P.Height *　0.0378)
End Sub

画像変換ツールでPNGをBMPなどほかの形式にすれば、大きさを求められますが、よりよい方法を知っていれば教えてください。
宜しくお願いします。

No.1 回答者： takepon256 回答日時： 2009/02/12 23:31

http://www.vector.co.jp/soft/win95/prog/se206517 …

この回答へのお礼

ご回答ありがとうございます。
リンク先ファイルから試したものの、動作させられませんでした。
プログラミングについてあまり詳しくないので、この機会にCOMオブジェクトの使い方を学ぼうと思います。
（作業環境はWindowsXP,Office2000で試しました）

お礼日時：2009/02/13 01:00