VBAの修正コードを教えてください（初心者）

いつもお世話になっております。

下記のVBAコードを使わせて頂き、自分で作成したエクセルにセルに合わせて自動で画像データを添付するようにしたいのですが。
(1)タテヨコの縮尺を保持⇒セルに合わせて縦横の変倍を行う
(2)又は、貼付部のセルのサイズは決まっているのでサイズを指定して貼り付ける
となるように修正したいのですが、なにぶんVBAは初心者なもので、全くわかりません。
どなたかご指導を宜しくお願い致します。


Private 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
myAD1 = mySP.TopLeftCell.MergeArea.Address
myAD2 = Target.Address
If myAD1 = myAD2 Then mySP.Delete
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.2 ベストアンサー 回答者： o_chi_chi 回答日時： 2012/10/03 12:50

画像の縦・横はそれぞれ

mySP.Height、mySP.Width

セルの縦・横はそれぞれ

Target.Height、Target.Width

なのでそのまま設定すれば

セルの大きさと同じ画像となります。


mySP.Height = Target.Height

mySP.Width = Target.Width

同様に位置は

mySP.Top = Target.Top

mySP.Left = Target.Left

これでどうでしょう。

No.1 回答者： kybo 回答日時： 2012/10/03 11:40

先日同類の質問がありましたので以下を参考にして下さい。

http://questionbox.jp.msn.com/qa7704293.html

この回答へのお礼

ありがとうございます

お礼日時：2013/06/18 21:47