エクセル 画像リンク

例えばエクセルの一つのセルに名前を入れてそこをクリックすると画像（顔写真）を表示させることは可能でしょうか？
コメントやハイパーリンクで電話番号やアドレスを表示させることは出来るのですがご存知の方がおりましたら教えてください。

No.2 ベストアンサー 回答者： ham_kamo 回答日時： 2007/03/10 15:58

Excel内でなく、単純にJPGファイルを関連づけされている外部ビューア（IEとか）で開くだけなら、名前を入れたセルを右クリックして「ハイパーリンク」を選択し、参照先で「ファイル」のボタンを押して、顔写真のファイルを選択すればいいです。

（Excel2000の場合です。バージョンが違って操作が違う場合はすみません）

No.5 回答者： imogasi 回答日時： 2007/03/10 21:51

新しいマクロの記録状態にして、挿入ー図ーファイルからー画像ファイルをファイル指定のウインドウで指定。

を行うなう。
マクロコードは
Sub Macro1(f)
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg" _
).Select
End Sub
ですが
Sub Macro1(f)
ActiveSheet.Pictures.Insert(f).Select
End Sub
に変更して
Ｓｈｅｅｔ１のダブルクリックイベントに
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
f = Target.Value
Macro1(f)
End Sub
を入れる。
ーー
Ｓｈｅｅｔ１のセルの
Ａ２に
C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue Hills.jpg
Ａ３に
C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg
とファイル名を入れておいて、それらのセルをダブルクリックすると図がシート上に現れます。
以上は位置と大きさなどは考慮していませんが、Top,Left,Width,height
プロパティを指定して調節できます。また以前の表示されている図を消すとかありますが、略。
マクロの記録で、図の大きさを変えたり、位置を変えて記録をとれば判ります。

No.4 回答者： takuteku 回答日時： 2007/03/10 21:21

この間、他の質問で回答したので参考にしてみてください。

http://okwave.jp/qa2810175.html

No.3 回答者： Kasouken 回答日時： 2007/03/10 19:30

VBAでよければどうぞ。

ダメなら無視して下さい。
下記コードを標準モジュールに貼り付けて一度保存して下さい。
画像ファイルはBookと同じ所に置いて下さい。ファイルの種類はjpgです。
シート１のA1にファイル名を入力し実行。拡張子は不要です。

Sub Test()
Dim objFSO As Object
Dim myPath As String
Dim Fname As String
Dim myRng As Range
Set objFSO = CreateObject("Scripting.FileSystemObject")
With Worksheets("Sheet1")
　　　Fname = "\" & .Range("A1").Value
　　　myPath = ThisWorkbook.Path & Fname & ".jpg"
　　　If objFSO.FileExists(filespec:=myPath) = False Then
　　　　　　MsgBox "ファイルなし"
　　　　　　Exit Sub
　　　End If
　　　.Pictures.Delete
　　　Set myRng = .Range("B1:C5")
　　　.Shapes.AddPicture myPath, 0, True, _
　　　　　　　　　　　　　　　myRng.Left, _
　　　　　　　　　　　　　　　myRng.Top, _
　　　　　　　　　　　　　　　myRng.Width, _
　　　　　　　　　　　　　　　myRng.Height
End With
Set myRng = Nothing
Set objFSO = Nothing
End Sub

No.1 回答者： mshr1962 回答日時： 2007/03/10 15:10

下記のサイトが参考になるかと．．．

http://officetanaka.net/excel/function/tips/tips …

ただ人数が多いとブック容量が重くなりますので
アクセスのようなデータベースを利用することをお勧めしますけど．．．