Hello,
Petite question sur des graphiques Excel liés à un fichier Word. Je cherche, sur mon fichier word et par VBA a :
- Désactiver la conservation des proportion
- Mettre l'objet lié en 6cmx12cm
- Désactiver l'autodimensionnement par rapport à la taille d'origine (option proportionnelle à l'image d'origine).
Les 2 premières conditions furent assez "simples" à mettre en place via le code suivant :
Sub Graph()
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoFalse
iShape.Height = 170
iShape.Width = 340
Next
End Sub
Mais c'est pour la dernière que je bloque, et je n'ai rien trouvé d'intéressant sur le net. Il y avait bien l'option ShapeScaleHeight = msoFalse et idem avec Width mais malheureusement un objet lié n'est pas un "Shape" mais un InlineShapes ..
Une alternative consisterai à mettre le graph directement en 6x12 sur le fichier Excel, mais vu le nombre d'utilisateur s'en servant ça risque d'être compliqué ...
Merci par avance si vous vous penchez sur mon problème.
Cordialement,