エクセルで画像を取り込むとき・・・。

質問

エクセルで画像(JPG)を取り込むときに、その画像のファイル名をセルに入力するとその画像が取り込まれる。ということはできますか？

回答No.2

imogasi

D1セルに２を入れておきます。
Ａ１：Ａ１０にフルパスでＪＰＧのファイル名を入れておきます。
Ｓｈｅｅｔ１のWorksheet_SelectionChangeイベント
プロセジュアに下記を貼りつける。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ActiveSheet.DrawingObjects.Delete
If Target.Column = 1 Then
j = Cells(1, "d")
ActiveSheet.Pictures.Insert(Target).Select
Selection.Top = Cells(5, j).Top
Selection.Height = Cells(5, j).Height
Selection.Left = Cells(5, j).Left
Selection.Width = Cells(5, j).Width
Cells(1, "d") = j + 1
End If
End Sub
５行目のセル幅と高さを適当に拡げておく。
Ａ１をクリックでＢ５に、Ａ２をクリックでＣ５に画像が
入ります。

回答No.1

laputart

Excelは画像Viewerではありませんので本格的に
画像を管理することは得意ではありませんが
例えばマクロを使って画像を取込む事は可能です。

以下に一例を書きました。
(1)　セルB2に画像へのフルパスを書く
（例　c:\フォルダー名￥ファイル名.jpg など）
(2)次にMacro1を実行するとセルb3に画像をインサートする
(3)該当する画像がない場合はエラーメッセージを
表示させるという事です。

このままでは使用には耐えないと思いますので
これを改造してもっと体系化したプログラムを
作る必要があります。

マクロはここから------------>
Sub Macro1()
'画像を取込み

Dim z1 As String
On Error GoTo ert
Range("B2").Select
z1 = ActiveCell.Value
Range("B3").Select
ActiveSheet.Pictures.Insert(z1).Select

Exit Sub
ert:
MsgBox ("画像ファイル名が見あたりません。")

End Sub