エクセル 棒グラフに顔写真を自動挿入

質問

使用環境はXPのマイクロオフィス2003です。
現在顔写真入りの棒グラフランキング表の作成をしたものの何とかできたのですが100人位の顔写真を毎回手動で入れ替えるのが時間がかかりすぎてしまってます。理想はグラフ内の人の名前の下に自動で顔写真が貼り付けられるようになればよいのですがアドバイス頂けませんでしょか。また、エクセルにこだわらず適したフリーソフト、シェアソフトもあれば教えてください。よろしくお願いします。

回答No.3

imogasi

一発設定のようなことでは出来ません。関数は役立ちません。
VエクセルBAでやるか、出来合いのソフトを探すかでしょう。
グラフを作成するとアイコンのような写真が着いてくる機能は無い。
ーー
最終結果（作品）はどう利用するのですか。
VBAでやるとすると
１人（質問者が）がパソコンのグラフをを眺める
全員分
印刷して配る。
何かの単位ごととか。
全員分だと全体が大きくなりすぎ、１人ごろには顔が小さくなる。
こういうことで、場合によってはVBA熟達者にも面倒な内容になる。
だからそういうことを付け加えて質問すべきなんだ。
ーー
VBAで画像貼り付けのコードは、既出回答のように簡単だが、
（１）人と写真画像あわせ（対応関係、田中君の写真はどれ）
（２）田中君のグラフ（マーカー。棒グラフの棒）と田中君の写真の位置あわせが簡単ではない。
（１）は名前と写真データの対応を隣同志のセルに記録するなどになろう。
（２）は位置が規則的に計算で出せる場合は難しくないが。
田中君のグラフがグラフ上どこに行くか知るのが難しいように思う
ので、VBAの少しの経験しかなければやめたほうがよい。

回答No.2

umazanpai

Access
のレポートなら簡単かな？
横棒ならもっとらくかな？

回答No.1

xls88

≪VBAでグラフに写真を挿入する例≫
Dim pic As Picture
Dim pname As Variant

pname = "D:\無題.jpg"
Set pic = ActiveChart.Pictures.Insert(pname)
pic.Select
With Selection
.ShapeRange.LockAspectRatio = msoTrue
.Width = 50
.Left = 50
.Top = 150
End With

”グラフ内の人の名前”を手掛かりに
1、挿入する写真のファイル名を決定
2、その位置から、写真のサイズ、挿入位置を決定
するコードを追加してください。