Scale pour chartobject

loto · 21 Octobre 2010

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 · 21 Octobre 2010

Re : Scale pour chartobject

Bonjour Loto, bonjour à tous,

Essaye le code suivant:

Code:

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 · 21 Octobre 2010

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...

Scale pour chartobject

loto

XLDnaute Occasionnel

Gael

XLDnaute Barbatruc

loto

XLDnaute Occasionnel

Discussions similaires