VBA ScaleHeight 2003 vs 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并进行一些条件编码吗？

感谢您的时间！