Scale pour chartobject

[loto]

Salut,

Je bataille ferme mais sans jamais y arriver....

Je souhaite forcer l'échelle de mes graphes quels que soient leur nom :

J'ai écrit:

Sub graph()

Dim c As ChartObjects

For Each c In ActiveSheet
With c.ChartArea.Axes(xlValue)
.MinimumScale = 20
.MaximumScale = 150
End With
Next
End Sub

mais cela ne marche évidemment pas.
Je sais le faire avec un graphique nommé 1,2, 1000..... mais pas avec des noms volatiles

Comment m'en sortir??

Merci,

 

[Gael]

Re : Scale pour chartobject

Bonjour Loto, bonjour à tous,

Essaye le code suivant:

Sub graph()
Dim c As ChartObject
For Each c In ActiveSheet.ChartObjects
c.Activate
With ActiveChart.Axes(xlValue)
.MinimumScale = 20
.MaximumScale = 150
End With
Next
End Sub

@+

Gael

 

[loto]

Re : Scale pour chartobject

Je pense avoir effleuré la solution à un moment...
Je ne sais dire si ça me réjouie ou me désespère....

Merci à toi et vous tous qui veillez sur nous, pauvres ignorants...