vba - 如何在 Excel 2010 中缩放图片链接对象

Question

在 Excel 2007 中，可以使用以下 VBA 代码缩放图片链接对象（使用相机工具创建）。

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 代码测试。