Excelのvbaにてセルをダブルクリックで画像挿入するマクロを使ってい

Excelのvbaにてセルをダブルクリックで画像挿入するマクロを使っているんですが、Excel2016で写真を張り付けた場合の大きさと、Excel2013で写真を張り付けた場合の大きさが同じになりません。
下記のコードを使ってい るのですが、お分かりになる方がいらっしゃったらご教授お願い致します。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim myF As Variant
Dim mySp As Object
Dim myAD1 As String
Dim myAD2 As String
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.Shapes.AddPicture(Filename:=myF, LinkToFile:=False, _
SaveWithDocument:=True, Left:=Target.Left, Top:=Target.Top, _
Width:=0, Height:=0) ‘ とりあえず 縦横0で。
mySp.ScaleHeight 1, msoTrue ‘元のサイズに戻す
mySp.ScaleWidth 1, msoTrue ‘元のサイズに戻す
mySp.LockAspectRatio = msoTrue ‘縦横比を固定する
If mySp.Width > Target.Width Then mySp.Width = Target.Width
If mySp.Height > Target.Height Then mySp.Height = Target.Height
If mySp.Width < Target.Width Then mySp.Width = Target.Width If mySp.Height < Target.Height Then mySp.Height = Target.Height '===============中央へ調整 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 知恵袋で同じようなことを質問されている方がいましたので、その質問の回答者のコードを使わせてもらっているのですが、うまくいきません。 ご回答よろしお願いします。


本当に2016と2013の違いですか?
対象画像の違いという事はありませんか。
あと、貼り付けた画像の大きさを調整する下記の部分、
上の2行は大きい画像をセルの大きさに縮小し、
下の2行は小さい画像はセルの大きさに拡大する
というような動きのようで、両方を実行して結果的に、
【大体】セルの大きさにする、となっているようですが
それで要件は満たしているのでしょうか。
通常は、上の2行だけで良いように思いますが。
(とりあえず、下2行をリマークにして実行
してみてください。)
If mySp.Width > Target.Width Then mySp.Width = Target.Width
If mySp.Height > Target.Height Then mySp.Height = Target.Height
‘If mySp.Width < Target.Width Then mySp.Width = Target.Width 'If mySp.Height < Target.Height Then mySp.Height = Target.Height 因みに、こんなフリーソフトはいかがでしょうか。^d^ 画像貼付Express 実用的な機能に絞り【簡単操作】を実現した、ワークシート画像貼付ソフトです。 画像貼付名人 複数画像の貼り付けと調整が簡単に出来ます。 参考になるかもしれない、エクセルVBA小技集