エクセルのセルにデータとして画像を貼り付ける？

解決済

質問者：suzu42
質問日時：2005/09/17 10:53
回答数：4件

エクセルのセルにデータとして画像を貼り付けること(画像をシートに挿入する貼り付け方ではなく、たとえば名簿にその人の写真を貼り付けて、ソートしても一緒に動くような貼り付け方)ができると聞いたことがあるのですが、聞き間違いでしょうか。もしその方法や、必要なソフトがありましたら、教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： Zero_0
回答日時：2005/09/19 11:44

Sampleとして、A3のセルに入れたファイル名(+.jpg)の写真を、C3のセルに表示するものです。

A3のファイル名に変更があればその時点で写真を変更するようにしてあります。複数の写真の場合は、for～nextなどで処理するといいと思います。

　写真のパスは、Photo_Pathで指定します。

Private Sub Worksheet_Change(ByVal Target As Range)

'指定のセルA3以外であれば処理しない
If Target.Column <> 1 And Target.Row <> 3 Then Exit Sub

Photo_Path = "D:\photo\"　　　'写真のフォルダ

Dim 写真 As Shape

'表示されている写真をすべて消す。
For Each 写真 In ActiveSheet.Shapes
If 写真.Type = 13 Then 写真.Delete
Next

Range("C3").Select　　’写真表示の場所

On Error GoTo ErrT
'写真の取り込み
ActiveSheet.Pictures.Insert(Photo_Path & Cells(3, 1) & ".jpg").Select
On Error GoTo 0
'写真の圧縮比
Selection.ShapeRange.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
P0:
Exit Sub

ErrT:
MsgBox ("写真が見つかりません。")
Resume P0
End Sub

ご参考に

- 0
- 件

通報する

この回答へのお礼

本当に度々、ありがとうございました。ＶＢＡに関してはド素人なので、上手く扱えませんでしたが、これを機会に勉強して扱えるようにしたいと思います。ありがとうございました。

通報する

お礼日時：2005/09/26 09:31

No.3

回答者： guutarakun
回答日時：2005/09/18 23:01

こんばんは。

Vectorで、
ダウンロード > Windows95/98/Me> 画像＆サウンド> グラフィックス関係> デジカメ>
のカテゴリーを開き…
「EXCEL」という言葉を含むフリーソフトを試してみるといいと思います。

そこに掲載されているソフトで例えば下記ＵＲＬのものなどを私も試してみておりますが、結構、重宝しますよ。

参考URL：http://wsriver.hp.infoseek.co.jp/JOB/PASO/PtotoH …