Come si fa a scalare un oggetto PictureLink in Excel 2010

Question

In Excel 2007 è possibile scalare un oggetto PictureLink (creati con la fotocamera Tool) utilizzando il seguente codice VBA.

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

Questo codice inserisce l'immagine in modo corretto nel 2010, ma la scaleValue viene ignorato. La documentazione Excel 2010 è a macchia di leopardo su questo argomento. Lo stesso codice funziona bene in Excel 2007.

Answer 1

In Excel 2010, sorprendentemente, l'impostazione del ScaleValue al 75% di ciò che è in Excel 2007, fa il trucco. Quindi è necessario creare codice VBA test per Application.Version.