在Excel 2007中,可以使用以下VBA代码缩放PictureLink对象(使用相机工具创建)。

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

该代码在2010年正确地放置了图片,但是尺度值被忽略了。 2010年的Excel文档对此主题很差。同一代码在Excel 2007中正常工作。

有帮助吗?

解决方案

令人惊讶的是,在Excel 2010中,将规模值设置为Excel 2007中的75%。因此,您需要为应用程序创建VBA代码测试。

许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top