redimensionner un graphique [Resolu]

redimensionner un graphique [Resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 12-03-2009 à 13:30:14    

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


Message édité par 86vomito33 le 16-03-2009 à 15:25:09
Reply

Marsh Posté le 12-03-2009 à 13:30:14   

Reply

Marsh Posté le 16-03-2009 à 15:24:43    

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)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed