ファイルのパスを参照してセルに画像を表示できますか?

質問

質問をお願い致します．
以下のような感じで，B列のセルに画像ファイルのパス名を入力しています．このとき，左側のA列のセルに，その画像を表示したいのですが，このようなことは可能でしょうか?

　　　　A　　　　　　　　B
1　(右の画像）　c:\img\pic001.jpg
2　(右の画像）　c:\img\pic002.jpg
3　(右の画像）　c:\img\pic003.jpg

宜しくお願い致します．

回答No.2

mitarashi · ベストアンサー

マクロでよければ下記でできると思います。（当方XL2000）
Sub test()
Dim i As Long
Dim myPic As Object
Dim myCell As Range

For i = 1 To Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row
Set myCell = Range("B" & i)
Set myPic = ActiveSheet.Pictures.Insert(myCell.Value)
With myPic
.Top = myCell.Offset(0, -1).Top
.Left = myCell.Offset(0, -1).Left
.Width = myCell.Offset(0, -1).Width
.Height = myCell.Offset(0, -1).Height
End With
Set myPic = Nothing
Next i
End Sub

お礼

貴重な情報有難うございました。
組み込んで、希望通りの動作ができました。
本当に有難うございます。
マクロの勉強もしたいと思います。
また、よろしくお願いいたします。

回答No.1

potekujira

私はＥｘｃｅｌ２００３を使用しているので他のソフトのことはわかりませんし少し質問者さんのやりたいこととずれてるかもしれませんが、参考まで。
画像を貼り付けたい場所で、
メニューから「挿入」－「図」－「ファイルから」を選択するとファイルを選択するポップアップがでますので、選択して挿入ボタンでワークシート上に貼り付けでき、画像の移動や拡大／縮小等もできます。
セルの中に直接画像を参照させる方法はわかりませんでした。