如何在Excel 2010中缩放pictureLink对象

Question

在Excel 2007中，可以使用以下VBA代码缩放pictureLink对象（使用Camera Tool创建）。

With ActiveWorkbook.Sheets(sht).Pictures(name)
    .ShapeRange.ScaleWidth scaleValue, msoTrue
    .ShapeRange.ScaleHeight scaleValue, msoTrue
    .top = top
    .left = left
End With

此代码在2010年正确放置图片，但忽略scaleValue。 2010 Excel文档在这个主题上不完整。相同的代码在Excel 2007中运行良好。

Answer 1

在Excel 2010中，令人惊讶的是，将ScaleValue设置为Excel 2007中的75％，就可以了。因此，您需要为Application.Version创建VBA代码测试。