VBA ScaleHeight 2003 vs 2013

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

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 

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

我找不到任何解释这种差异的文档。

有没有人遇到过这个呢？ 如果是这样，那将是什么解决scheme。 我应该检查application.version并做一些条件编码？

感谢您的时间！