代码之家 › 专栏 › 技术社区 › vzczc

如何在Excel2010中缩放PictureLink对象

excel-2010 excel-vba vba excel

0

vzczc · 技术社区 · 16 年前

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

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

此代码在2010年正确放置了图片,但scaleValue被忽略。2010年的Excel文档在这个主题上是零碎的。同样的代码在Excel2007中也可以正常工作。

1 回复 | 直到 16 年前

1

0

vzczc 16 年前

令人惊讶的是,在Excel2010中,将scaleValue设置为Excel2007中的75%,这样就成功了。因此,您需要为application.version创建VBA代码测试。