エクセル 大量の写真 必要な時にセルに貼りつける方法はありませんか？

質問

EXCEL2003を使用しています。
１行１レコードで表を作成していますが、１レコードに写真が１枚あります。（人事情報の顔写真のようなものです）
１シートに２００件程度になりそうなのですが、写真が重く、ファイルが扱えません。
できれば写真は別のブックに分散させておき、必要な時（見たい、写真入りで印刷したい等）、必要な分だけ、簡単な操作で指定セルに貼りつけるようなことはできないでしょうか？
ハイパーリンクを試してみましたが、
　JPEGのファイルを指定すると、ファイルは見れるのですが、セルには貼り付きません。
　セルを指定してもそのセルに飛ぶだけで元のセルには貼り付きません。

どなたかご存知の方、ご教授お願いします。

回答No.2

vista2446 · ベストアンサー

Excelに大量の写真を貼り付けるなら、写真を圧縮するしか手はなさそうですが。。。
1枚5KBまで圧縮して、200件で1000KB・・・PCスペックに依存しますが、現行のPCなら扱えるファイルサイズだと思います。
画像圧縮のフリーな定番ソフトを紹介しておきます。あと、名簿作成のフリーなソフトもありますので、さがしてみてください。
http://i-section.net/software/shukusen/
会社のPCだとインストール出来ないかも知れませんが・・・管理者と相談してみてください。

お礼

ありがとうございました。
これができれば一番いいです。
後はご指摘のようにインストールできるかの問題です。

回答No.5

takana_

#4さんの方法で、最後の部分を以下に書き換えれば、画像のサイズがオリジナルサイズになるのではないでしょうか？
Set pict = Me.Shapes.AddPicture(fName, msoTrue, msoFalse, _
Target.Cells(1, 1).Offset(0, 1).Left, _
Target.Cells(1, 1).Offset(0, 1).Top, 320, 240)

With pict
Call .ScaleHeight(1, msoTrue)
Call .ScaleWidth(1, msoTrue)
End With

回答No.4

papayuka

Excelで大量の画像を管理するのは良い方法とは思えませんが、、、
ひとつの方法としてVBAで行う方法です。
画像ファイルはひとつのフォルダに収めてある前提です。
また、ツール－マクロ－セキュリティでマクロが有効に出来る環境である必要があります。

1）新規ブックのSheet1で、A列に氏名、B列に年齢、C列に画像のファイル名を拡張子付で記入します。
　　　Ａ　　　　　　Ｂ　　　　　Ｃ
１　　山田太郎　３４歳　　山田太郎.jpg
２　　田中次郎　２９歳　　田中次郎.jpg

2）Sheet1のシート名を右クリックし、コードの表示を選び、出て来たVisualBasicEditor画面（以下VBE画面）に下記のマクロをコピペします。
3）VBE画面を閉じます。
4）ブックを画像が収めてあるフォルダと同じフォルダに保存します。（必ず）

これでC列のファイル名を入力したセルを「ダブルクリック」するとD列に画像が表示されるハズです。

'----------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim fName As String, pict As Shape
On Error GoTo ER:
　If Target.Cells(1, 1).Column <> 3 Then Exit Sub
　Cancel = True
　fName = ThisWorkbook.Path & "\" & Target.Cells(1, 1).Value
　　　For Each pict In Me.Shapes
　　　　 pict.Delete
　　　Next pict
　Me.Shapes.AddPicture fName, msoTrue, msoFalse, _
　　　　　　Target.Cells(1, 1).Offset(0, 1).Left, _
　　　　　　Target.Cells(1, 1).Offset(0, 1).Top, 320, 240
ER:
End Sub
'----------------------------------------------------------------------------------

ご参考まで

回答No.3

koko88okok

適当なファイルがありませんので、どのように変化するのか確かめていませんが、

「オプション」の「表示」タブの「オブジェクト」欄で、「すべて表示」「位置だけ表示」「すべて表示しない」いずれかが選択できるようになっています。

「Ctrl+6」のショートカットキーで、「すべて表示」→「位置だけ表示」→「すべて表示しない」の順に切り替えが可能のようですので、お試しになっては如何でしょうか？

「すべて表示しない」の場合、画像を表示しないため、多数の画像のために重い(表示に時間が掛かる)ファイルでもスムーズに操作できるのではないかと思います。

お礼

ありがとうございました。
試してみましたが、すべてを表示しない状態でも、残念ながら表示時間は変わりませんでした。

回答No.1

takana_

EXCELのファイルを保存する時に、ファイルの種類で、Webページとして保存を選択すればどうでしょうか？

補足

早速の回答ありがとうございます。
ハイパーリングでリンク先のファイルをWebページとして保存してみました。
実行すると表示はできるのですが、元のエクセル上には貼り付きませんでした。
説明不足で申し訳ありません。
　　　Ａ　　　　　　Ｂ　　　　　Ｃ
１　　山田太郎　３４歳　　顔写真１
２　　田中次郎　２９歳　　顔写真２
普段は重いのでこの状態ですが、顔写真１をクリックするとこのセルに顔が貼り付き、表示することはできないでしょうか？