エクセル2010でマクロ写真の貼り付けについて。

質問

こちらは、VBAからマクロから全くの初心者で困っています。

エクセル2010でA4 3枚貼りのフォーマットを作成しました。
このフォーマットにダブルクリックで写真を添付するマクロ
を使いたいのですが、あちこちで探しているマクロを試しても
うまく行きません。

・写真の添付が出来ても、サイズが合わない。
・プレビューで見ると写真が消える。
・エクセル2003と互換性がない？　

など、問題点が山積みでどうにもなりませんでした。
現在、フォーマットは出来ているので、どなたか
出来合いのものでも構わないので、マクロを教えて頂けないでしょうか？

写真が大量にありすぎて、つらいです。

※フォーマットの写真を貼る部分は、結合しています。その結合している
サイズで(元の写真の縦横比率は変わらずに)貼りたいです。

説明がへたくそで済みません・・・。

回答No.1

keithin

たとえば。

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに記載されている内容は一度全部消去する
改めて下記をコピー貼り付ける

private sub Worksheet_BeforeDoubleClick(byval Target as excel.range, Cancel as boolean)
　dim myFile as string

　if not target.mergecells then exit sub
　myfile = application.getopenfilename(title:="select one pict", multiselect:=false)
　if myfile = "False" then exit sub

　with activesheet.pictures.insert(myfile)
　　.shaperange.lockaspectratio = msotrue
　　.name = "Pict" & target(1).address(false,false)
　　.height = application.min(target.height, .height)
　　.width = application.min(target.width, .width)
　　.left = target.left + (target.width - .width) / 2
　　.top = target.top + (target.height - .height) / 2
　end with

　cancel = true
end sub

ファイルメニューから終了してエクセルに戻る
結合セルをＷクリック、そこに貼りたい画像ファイルを指定する。

さて。
一つ問題があります。
＞その結合しているサイズで(元の写真の縦横比率は変わらずに)貼りたい

ふつーに考えると、結合セルの縦横サイズと、元の写真の縦横サイズ（比）は当然一致していません。
どっちを取りたいのか、肝心の「どうしたいのか」が説明されていません。

また
＞あちこちで探しているマクロを試してもうまく行きません。

という状況説明だけでは、ここで教わったのを試しても、やっぱり同じでダメかもしれませんね。
何が問題でどう失敗してて「どうしたい」のか、具体的な状況説明が必要です。
◎「こういう内容のマクロ」を実際に試してみたら
◎「こうなって欲しかった」のに「どうなってしまって」困っている
という具合に。

今回のご相談でも皆さんから、様々なアイデアが寄せられると思います。それぞれを一つずつしっかり試して、どこが問題で具体的にどうなって欲しいのか、キチンと返すようにしてください。