VBA ScaleHeight 2003和2013

Question

我在Excel 2003中创建了一个Excel文件（XLS），并添加了以下宏：

Sub test()
Dim p As Shape
   Set p = ActiveSheet.Shapes.AddPicture("c:\temp\test.png", msoFalse, msoTrue, -1, -1, -1, -1)
   p.LockAspectRatio = msoTrue
   p.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
End Sub

当我运行此宏时，将插入图片并缩放高度。 当我在2013年打开工作表并运行宏时，高度和宽度都会缩放。

我在互联网上找不到任何文件可以解释这种差异。

也有人遇到过吗？ 如果是这样，那将是解决方案。 我应该检查application.version并进行一些条件编码吗？

感谢您的时间！