bonjour,
 
je cree un graphique sous excel 2003 et je voudrais le redimensionner.
 
jai obtenu le code suivant et je voudrais le modifier
ActiveSheet.Shapes("Chart 4" ).ScaleWidth 1.32, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 4" ).ScaleHeight 1.31, msoFalse, msoScaleFromTopLeft
 
n'ayant qu'un seul graphique sur la feuille, je voudrais changer ("chart 4" ) par chart(1)
mais cela ne fonctionne pas (erreur runtime error 9 subscript out of range)
 
quelqu'un sait it comment s'y prendre ?
 
merci

bon au final ca me donne ca (solution trouvee sur le forum)
 
ActiveSheet.Shapes(2).Left = 0
ActiveSheet.Shapes(2).Top = 0
ActiveSheet.Shapes(2).ScaleWidth 1.91, msoFalse
ActiveSheet.Shapes(2).ScaleHeight 1.33, msoFalse
 
a priori si jai bien compris la collection shapeS comprend les graphiques ainsi que les boutons(qui permettent de lancer les macros)