N
Nico
Guest
Salut le forum,
J'ai un fichier avec pres de 50 feuilles, et chaque feuille contient une graphique.
Je voudrais donner le meme dimension à chaque graphique et la mettre envoirons à la même hauteur.
Quand j'enregistre une macro j'obtiens le code suivant:
Sub Lay_Out_Chart_2()
'
' Lay_Out_Chart_2 Macro
' Macro recorded 8/24/2004 by Nico
'
'
Sheets("9").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Chart 2").IncrementLeft -230.25
ActiveSheet.Shapes("Chart 2").IncrementTop 146.25
ActiveSheet.Shapes("Chart 2").ScaleWidth 1.74, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 2").ScaleWidth 1.06, msoFalse, msoScaleFromTopLeft
Windows("Analysis by account P1-P7.xls").SmallScroll Down:=-6
ActiveWindow.Visible = False
Windows("Analysis by account P1-P7.xls").Activate
Range("J14").Select
End Sub
Comment changer ce code pour qu'il fasse ça sur la graphique de chaque feuille?
Merci!!!
J'ai un fichier avec pres de 50 feuilles, et chaque feuille contient une graphique.
Je voudrais donner le meme dimension à chaque graphique et la mettre envoirons à la même hauteur.
Quand j'enregistre une macro j'obtiens le code suivant:
Sub Lay_Out_Chart_2()
'
' Lay_Out_Chart_2 Macro
' Macro recorded 8/24/2004 by Nico
'
'
Sheets("9").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Chart 2").IncrementLeft -230.25
ActiveSheet.Shapes("Chart 2").IncrementTop 146.25
ActiveSheet.Shapes("Chart 2").ScaleWidth 1.74, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 2").ScaleWidth 1.06, msoFalse, msoScaleFromTopLeft
Windows("Analysis by account P1-P7.xls").SmallScroll Down:=-6
ActiveWindow.Visible = False
Windows("Analysis by account P1-P7.xls").Activate
Range("J14").Select
End Sub
Comment changer ce code pour qu'il fasse ça sur la graphique de chaque feuille?
Merci!!!