エクセル２００７のVBAの困りごと

教えてください。

画像挿入時にエクセルのセルの大きさに合わせるマクロを使っているのですが、エクセル２０００、２００３では問題なく動くのですが、２００７だと、うまくVBAが動かず、画像が縮小・拡大されません。
わかるかた教えてください。

コード
　Dim c As Range, cm As Range
Application.ScreenUpdating = False
For Each c In Selection
Set cm = c.MergeArea
If c.Address = cm.Item(1).Address Then
If Application.Dialogs(xlDialogInsertPicture).Show = False 　　　Then Exit Sub
　With Selection
.Left = cm.Left
.Top = cm.Top
.Height = cm.Height
.Width = cm.Width
End With
End If
Next
Set cm = Nothing

No.1 ベストアンサー 回答者： hotosys 回答日時： 2008/07/29 09:12

ShapeのLockAspectRatioプロパティで縦横比を保持するかを指定できる。

と言うのが増えてるみたいです。
ただ、
Selection.LockAspectRatio = msoFalse
ではエラーになるので、
ActiveSheet.Shapes(.Name).LockAspectRatio = msoFalse
を
.Height = cm.Height
.Width = cm.Width
の前に入れると、とりあえず動くみたい。
もっとスマートな方法もあると思う。
最初からSelectionではなくShapeで指定するとか。