Comment l'échelle vous un objet PictureLink dans Excel 2010

Question

Dans Excel 2007, il est possible à l'échelle d'un objet PictureLink (créé avec l'outil caméra) en utilisant le code VBA suivant.

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

Ce code place l'image correctement en 2010, mais le scaleValue est ignoré. La documentation Excel 2010 est parcellaire sur ce sujet. Le même code fonctionne très bien dans Excel 2007.

Answer 1

Dans Excel 2010, étonnamment, le réglage de la ScaleValue à 75% de ce qu'il est dans Excel 2007, le tour est joué. Donc, vous devez créer un code VBA pour tester Application.Version.