セルに入力されたファイル名からその画像を探しだしたい。

質問

いつもお世話になります。
エクセルはＶＢＡの入門書を読んで勉強中というレベルです。
仕事の上で以下の作業が出来れば助かるので教えていただきたいのですが、
例えばエクセルでＣ列に画像データファイル名（ＴＩＦ）が入力されているとして、そのファイル名から簡単に別のフォルダの中にある同じファイル名の画像を探してきて表示する・・・というようなことができますでしょうか？
よろしくお願いいたします。

回答No.2

misatoanna · ベストアンサー

ファイルのあるフォルダのパスとファイル名(拡張子付き)が与えられて
いれば、次のような記述でよいのではないでしょうか。
Ｃ列セル(C1:C10)のファイルを右隣(Ｄ列)にセル高に合わせて表示する
例です。

For i = 1 to 10
　FileName = フォルダのパス & "\" & Cells(i, 3).Value
　Cells(i, 4).Select
　HGT = Selection.Height
　ActiveSheet.Pictures.Insert(FileName).Select
　Selection.ShapeRange.LockAspectRatio = msoTrue
　Selection.ShapeRange.Height = HGT
Next i

Ｃ列セルに入力されたファイルが無い場合のエラー処理は考慮していま
せん。

お礼

ありがとうございました。
現時点で実際に使うエクセルファイルと画像が手元にないので、少し時間がかかりますが、テスト用のファイルを作ってやってみたいと思います。分からないことはまた質問させてください。
よろしくお願いいたします。

回答No.3

imogasi

マクロの記録モードにして、挿入ー図ーファイルから、以下の操作をして、記録されたコードを勉強したら。
（１）それではうまくいかない。
（２）うまくいくが、ここをこうしたい。
そういうことをこのコーナーに質問すればよいのではないですか。
上記のエクセルの操作（エクセルの操作でどこまでできる）そのものの存在の知識が不足なのでは。
--
ももうひとつ、WEB照会をしてみましたか。
「エクセル　画像　VBA」などで照会すると、沢山でます。ある程度知識を得て、さらに判らない点に質問を絞っては。

お礼

ありがとうございました。
ＷＥＢ照会とこちらでの過去の質問を検索してみたのですが、私がしてみたいこととは違う回答しか見つけられなかったので、思い切って質問してみました。エクセルの操作の知識不足というのはそのとおりだと思います。自分でしっかり勉強してから質問するようにします。

回答No.1

maron--5

◆下のＵＲＬが参考にならないでしょうか？

参考URL：

http://www.officetanaka.net/excel/function/tips/tips14.htm

お礼

ありがとうございます。
参考にさせていただきます。