• ベストアンサー

エクセル 画像リンク

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

質問者が選んだベストアンサー

  • ベストアンサー
  • ham_kamo
  • ベストアンサー率55% (659/1197)
回答No.2

Excel内でなく、単純にJPGファイルを関連づけされている外部ビューア(IEとか)で開くだけなら、名前を入れたセルを右クリックして「ハイパーリンク」を選択し、参照先で「ファイル」のボタンを押して、顔写真のファイルを選択すればいいです。 (Excel2000の場合です。バージョンが違って操作が違う場合はすみません)

その他の回答 (4)

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.5

新しいマクロの記録状態にして、挿入ー図ーファイルからー画像ファイルをファイル指定のウインドウで指定。 を行うなう。 マクロコードは 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 に変更して Sheet1のダブルクリックイベントに Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) f = Target.Value Macro1(f) End Sub を入れる。 ーー Sheet1のセルの A2に C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue Hills.jpg A3に C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg とファイル名を入れておいて、それらのセルをダブルクリックすると図がシート上に現れます。 以上は位置と大きさなどは考慮していませんが、Top,Left,Width,height プロパティを指定して調節できます。また以前の表示されている図を消すとかありますが、略。 マクロの記録で、図の大きさを変えたり、位置を変えて記録をとれば判ります。

  • takuteku
  • ベストアンサー率46% (26/56)
回答No.4

この間、他の質問で回答したので参考にしてみてください。 http://okwave.jp/qa2810175.html

noname#31387
noname#31387
回答No.3

VBAでよければどうぞ。ダメなら無視して下さい。 下記コードを標準モジュールに貼り付けて一度保存して下さい。 画像ファイルはBookと同じ所に置いて下さい。ファイルの種類はjpgです。 シート1の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

  • mshr1962
  • ベストアンサー率39% (7417/18945)
回答No.1

下記のサイトが参考になるかと... http://officetanaka.net/excel/function/tips/tips14.htm ただ人数が多いとブック容量が重くなりますので アクセスのようなデータベースを利用することをお勧めしますけど...