Par défaut zoomer des courbes en VBA
Résolu
qwerty_213
-
qwerty_213 Messages postés 27 Date d'inscription Statut Membre Dernière intervention -
qwerty_213 Messages postés 27 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite effectuer un zoom (zmin;zmax) sur 10 courbes, mais mon programme VBA si dessous s'arrête !
une idée ?
Je souhaite effectuer un zoom (zmin;zmax) sur 10 courbes, mais mon programme VBA si dessous s'arrête !
Sub Macro1()
'
' Macro1 Macro
'
zmin = 30000
zmax = 31000
For G = 1 To 10
ActiveSheet.ChartObjects("Graphique" G).Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = zmin
ActiveChart.Axes(xlCategory).MaximumScale = zmax
Next G
End Sub
une idée ?
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
Suggestion :
ActiveSheet.ChartObjects( G ).Activate
Ou, mieux :Option Explicit Sub Macro1() Dim un_graphique As ChartObject Dim zmin As Long Dim zmax As Long zmin = 30000 zmax = 31000 For Each un_graphique In ActiveSheet.ChartObjects un_graphique.Axes(xlCategory).MinimumScale = zmin un_graphique.Axes(xlCategory).MaximumScale = zmax Next End Sub -
