質問: excelで自動画像挿入 excelで、例えば(品番)を選択して、それをクリックすると自動で画像が現れるようにしたいのですが。 可能なのでしょうか? どういう方法がありますか? 教えてください。
回答: > いくつかの品番をリストで選択し、これにリンクして別シートに選択した品番が > 出てくるようになっているんですが、そこに画像を簡単に貼り付けたい。 いまいち内容が把握できませんが、下記のような操作は参考になりませんか? <前提> ・sheet2のa2:a20に品番リストがあります。 ・画像ファイルはみな同じフォルダにあり、ファイル名は商品コードと同じです。 ・sheet2のa1には"clear"と入力し、a1:a20に"list"という名前を設定します。 ・sheet1のa1に入力規則(リスト。参照範囲:=list)が設定されています。 sheet1のシートタブを右クリックして「コードの表示」を選択し、下記モジュール を記述します。 ' private sub worksheet_change(byval target as range) dim filename if target.address <> "$a$1" then exit sub application.screenupdating = false on error goto pfm: activesheet.shapes("pic").cut if target.value = "clear" then end pfm: filename = "c:\xxxxxxxx\" & target.value & ".jpg" 'c:\xxxxxxxx の部分には実際の画像ファイルフォルダのフルパスを記述します。 sheets("sheet2").select activesheet.pictures.insert(filename).select selection.shaperange.lockaspectratio = msotrue selection.shaperange.height = 100 '表示する画像の縦サイズです。 selection.copy selection.cut sheets("sheet1").select range("c1").select activesheet.paste selection.name = "pic" application.screenupdating = true range("d2").select end sub <動作> ・sheet1のa1で品番を選択すると、c1に画像が表示されます。