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

如何在Excel2010中缩放PictureLink对象

  •  0
  • vzczc  · 技术社区  · 14 年前

    在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 回复  |  直到 14 年前
        1
  •  0
  •   vzczc    14 年前

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