VBA余暇を使って楽天商品検索APIを使って商品情報を取得するVBAを作ったんですが、フォームに商品画像を表示させたいので調べてみました。

色々方法はあるらしいのですが、accessフォームの帳票フォームに連続して画像を表示させる方法を検索してみると、結構簡単に出来る方法が紹介してありました。

OleImage 関数 – 表形式(帳票)フォームにパスから画像を表示する方法

こちらのサイトにVBAのモジュールをダウンロードできるようになっているので、ダウンロードしてインポートすればすぐに使えます。

おかげさまで取得したxmlから画像URLを指定して画像表示できるようになりました。

使い方は、

フォームに「連結オブジェクト フレーム コントロール」を挿入し、コントロールソースに「=OleImage([画像ファイルのURL])を指定します。
これだけでフォーム上に、取得したxmlの画像を表示できます。

フォームへ画像表示

画像を表示させたフォームはこんな感じ。

VBAってスゲ~って思った休日でした。

 追記:この方法は32bit版のofficeでしか使えません。実際に64bit版でやってみたらエラーになりました。