教えてください。

質問

教えてください。
初めての投稿になります、書き込みなど不慣れ点あるかも知れませんが宜しくお願いいたします。
エクセル2007のマクロ、ＶＢＡ書き込みについて
指定された結合セルのみに画像挿入したいのです下記のＶＢＡではすべてのセルに
たいして画像挿入されてしまいます、結合セル三か所のみ反映したいのですが。

rivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

Cancel = True

'===============画像選択
myF = Application.GetOpenFilename _
("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)
If myF = False Then
MsgBox "画像を選択してください(終了)"
Exit Sub
End If

'===============画像の掃除
For Each mySP In ActiveSheet.Shapes
Debug.Print mySP.Name
If InStr(mySP.Name, "Drop Down") = 0 Then
myAD1 = mySP.TopLeftCell.MergeArea.Address
myAD2 = Target.Address
If myAD1 = myAD2 Then mySP.Delete
End If
Next

'===============画像の貼り付け
Set mySP = ActiveSheet.Pictures.Insert(myF)

'===============タテヨコの縮尺を保持
myHH = Target.Height / mySP.Height
myWW = Target.Width / mySP.Width
If myHH > myWW Then
mySP.Height = mySP.Height * myWW
mySP.Width = Target.Width
Else
mySP.Height = Target.Height
mySP.Width = mySP.Width * myHH
End If

'===============中央へ調整
myHH2 = (Target.Height / 2) - (mySP.Height / 2)
myWW2 = (Target.Width / 2) - (mySP.Width / 2)
mySP.Top = Target.Top + myHH2
mySP.Left = Target.Left + myWW2

Set mySP = Nothing

End Sub

セル指定
縦Ｂ９からＢ２１（１９５（２６０ピクセル）
横ＢからＥ（４０．０２（３４０ピクセル）
その他２つの結合セルがあります、サイズはすべて同じです
縦Ｂ２４からＢ３６　　縦Ｂ３９からＢ５１
横ＢからＥ　　　　　　　横ＢからＥ　
何分素人ですので、どのランに書き込めばいいのかもわかりません
いろんなＶＢＡをコピーして貼り付けましたがうまくいきませんでした
宜しくご享受お願いいたします。

回答No.1

noname#144013 · ベストアンサー

こんにちは。

今回の問題を確認しますと、

　ワークシート上に設定した下記３箇所の結合セル範囲について、
　　　（１）B9:E21
　　　（２）B24:E36
　　　（３）B39:E51
　現在は、このセル範囲『以外』のセルがダブルクリックされた際にも、[画像選択ダイア
　ログ]が表示されてしまい、続けて画像ファイルを選択してしまうと、そのセルに画像が
　挿入されてしまうのでそれを回避したい。

　言い換えますと、上記３箇所の結合セル範囲以外のセルがダブルクリックされた場合
　は、何も行わない処理にしたい。

ということで宜しいでしょうか？

そうであれば、ご提示のダブルクリック時のイベントプロシージャの最初の方で、
ターゲットセル（Target）が、上記３箇所の結合セル範囲内に含まれているかどうかを
見て、含まれていなければ処理を抜ける（終了させる）ようにすれば良いと思います。

言い換えますと、対象の３箇所（の何れか）の結合セルがダブルクリックされた時だけ、
画像挿入処理を続行するようにするという事です。

その為には、下記関数（メソッド）が利用できると思います。
　　Application オブジェクトの Intersect メソッド
　　※このメソッドの詳細は、ご使用のExcelのヘルプ（VBAのヘルプ）をご覧下さい。

あと、上記の対策を行った場合、以下のような注意点があります。

対象の結合セルに画像を貼り付ける際に、画像がセル範囲内に収まるようにサイズ
調整を行っていますが、セル範囲のサイズいっぱいまで拡大or縮小するようになって
いるようです。

その場合、もし、元の画像の縦横比がセル範囲の縦横比と全く同じだった場合は、
画像とセル範囲の間に隙間が全くなくなってしまいます。

その状態で、対象の結合セルをダブルクリックしようとして、マウスを持っていきクリック
するとセルではなく、画像が選択されてしまい、セルのダブルクリックが上手くできなく
なってしまいます。

ですので、画像サイズを調整する際は、対象の結合セル範囲のサイズより少し小さめ
のサイズにするようにして、画像とセル範囲の間に隙間を作るようにした方が良いかも
しれません。
※その他の方法（セルのダブルクリックではなく、コマンドボタンなどで画像挿入処理を
　行うなど）も考えられるとは思いますが。。。

以上を踏まえて、ご提示のマクロを修正したマクロソースを下記に掲載しました。
（下記リンク先参照）
宜しければ検証してみて下さい。（※尚、当方ではExcel2000を使用しています）

■マクロソース（修正版）
http://ideone.com/fHZ2t

＜上記マクロの補足＞
マクロ内の画像サイズ調整部分での、画像サイズとセルサイズの隙間を作るための調整
サイズ（隙間サイズ）ですが、ソース内では縦・横ともに10ポイント（上下または左右合わせて）
にしています。
このサイズはあくまで暫定ですので、ご使用の環境に合わせて適せん調整してみて下さい。

以上です。

お礼

FarEyesさんへ
ご回答有難うございます、早速書き直して作業進めさせて頂きました、
きちんと挿入できました、まことに有難うございます、
何分５０歳過ぎてからやり始めたもので、非常に覚えるのも時間がかかり
自分の不器用さに情けなさを感じる事ばかりです、また有り触れた質問
などでご迷惑おかけするかも知れませんが宜しくお願いいたします。