excelにて。VBAで、フォルダ内の画像を一覧の横に表示させたい。

質問

excelにて。VBAで、フォルダ内の画像を一覧の横に表示させたい。

過去、似たような質問があり、ここに書かれているＶＢＡを試したところ、やりたい事とかなり近かったです。
http://okwave.jp/qa/q2880877.html
しかしコレの場合、ある一つのセルへの入力に対して、一つの画像を表示する、といった形になっています。私がやりたいのは、さらに以下のようなことです。

１．あるシートのＡ列に、画像名の一覧がある。（マックス500行程度）
２．マクロを実行すると、Ａ列と同名の画像が、あるフォルダから呼び出されてＢ列に表示される。
　（Ａ２と同名の画像がＢ２へ、Ａ３と同名の画像がＢ３へ、ということ）

※参照フォルダは固定でＯＫです。
※表示サイズはサムネイル程度の小さなものでＯＫです。前述リンク先のＶＢＡのように、任意指定できれば尚可。

前述のリンク先にあるＶＢＡを自分で書き換えられればよいのですが、どうすればセルを可変にできるのかわかりません。（それとも下方向に向けて反復するといった形に書き換えるんですかね？？）

当方はＶＢＡできません。ネットで拾ったものをコピペして使っているレベルです。
バージョンは2002です。よろしくお願いいたします。

回答No.2

keithin · ベストアンサー

ご質問に書かれた
＞あるシートのＡ列に、画像名の一覧がある。（マックス500行程度）

のようになっていない，たとえばA1やA2などのセルが空欄になっていて画像名が記入されていない状況が想定されます。

変更前：
if dir(p & h) <> "" then

変更後：
if h <> "" and dir(p & h) <> "" then

としてみます。

まだダメだったときは。
どんなデータも一つも通らずダメなのか，特定のセル番地，特定の画像名などでダメなのか，エラーの出る詳しい状況を何でも全て教えてください。
VBE画面でデバッグを行い，エラーが出た時点でhやらpにどんな内容が実際に入っていたのかを確認し，教えてください。
また念のためご利用のエクセルのバージョンについてもきちんと教えてください。

＃基本ですがもしも「デバッグとは何ですか，どうしたらいいですか」について，やり方を知らない判らないときは必要に応じて別途ご相談を投稿してみてください。

お礼

ありがとうござました。
まさにそれ、空欄セルがあったからでした。
こちらのマヌケなミスで、お時間おかけして申し訳ありませんでした。

見事に画像が現れて、感動いたしました。
どうもありがとうございました！

回答No.3

Sinogi

>当方はＶＢＡできません。ネットで拾ったものをコピペして使っているレベルです。

ってことですから

>p = "c:\あるフォルダ\"

もそのままのような気がする・・・

補足

わはは。さすがにそれはありません！

回答No.1

keithin

sub macro1()
　dim p as string
　dim h as range

　p = "c:\あるフォルダ\"
　activesheet.pictures.delete

　for each h in range("A1:A" & range("A65536").end(xlup).row)
　　if dir(p & h) <> "" then
　　　with activesheet.pictures.insert(p & h)
　　　　.name = h
　　　　.top = h.offset(0, 1).top
　　　　.left = h.offset(0, 1).left
　　’不要なら次の2行をコメントアウト
　　　　.width = h.offset(0, 1).width
　　　　.height = h.offset(0, 1).height
　　　end with
　　end if
　next
end sub

など。

補足

早速ありがとうございます。
やってみたところ、マクロを実行するとエラーが出ます。

「With ActiveSheet.Pictures.Insert(p & h)」にデバックの黄色が出ているのですが、何が問題なんでしょうか？？？？