Schleife Diagramme skalieren

25/08/2009 - 09:59 von Julia | Report spam
Hallo zusammen,

ich habe in einem Modell 7 Spider-Diagramme (Chart3-Chart9).
Gerne würde ich über eine Schleife die Minimal- und Maximalwerte der
Diagramme anpassen
(Diese sind jeweils als ResultsMin1, ResultsMin2 etc. bzw.
ResultsMax1, ResultsMax2 etc. bezeichnet).

Wie passe ich denn im untenstehenden Code den Ausdruck Chart3.Select
entsprechend mit dem Ausdruck "i" an, dass die Minimal- und
Maximalwerte den entsprechenden Diagrammen zugewiesen werden, d.h.
dass "ResultsMin1" und "ResultsMax1" in Chart3 berücksichtigt werden;
"ResultsMin2" und "ResultsMax2" in Chart4 usw.?

Danke vorab für Eure Rückmeldung!
Schöne Grüsse,
Julia


Sub Test_Spider()

Dim i As Integer
For i = 1 To 7

Chart3.Select

With ActiveChart.Axes(xlValue)
.MinimumScale = Range("ResultsMin" & i).Value
.MaximumScale = Range("ResultsMax" & i).Value
.MinorUnit = 0.01
.MajorUnit = 0.01
.Crosses = xlCustom
.CrossesAt = 0
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With

Next i

End Sub
 

Lesen sie die antworten

#1 Beverly
25/08/2009 - 10:56 | Warnen spam
Hi Julia,

versuche es mal so:

Sub Test_Spider()
Dim i As Integer
For i = 1 To 7
With Charts("Chart" & i).Axes(xlValue)
.MinimumScale = Range("ResultsMin" & i).Value
.MaximumScale = Range("ResultsMax" & i).Value
.MinorUnit = 0.01
.MajorUnit = 0.01
.Crosses = xlCustom
.CrossesAt = 0
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
Next i
End Sub

Bis spàter,
Karin
http://beverly.excelhost.de/

"Julia" wrote:

Hallo zusammen,

ich habe in einem Modell 7 Spider-Diagramme (Chart3-Chart9).
Gerne würde ich über eine Schleife die Minimal- und Maximalwerte der
Diagramme anpassen
(Diese sind jeweils als ResultsMin1, ResultsMin2 etc. bzw.
ResultsMax1, ResultsMax2 etc. bezeichnet).

Wie passe ich denn im untenstehenden Code den Ausdruck Chart3.Select
entsprechend mit dem Ausdruck "i" an, dass die Minimal- und
Maximalwerte den entsprechenden Diagrammen zugewiesen werden, d.h.
dass "ResultsMin1" und "ResultsMax1" in Chart3 berücksichtigt werden;
"ResultsMin2" und "ResultsMax2" in Chart4 usw.?

Danke vorab für Eure Rückmeldung!
Schöne Grüsse,
Julia


Sub Test_Spider()

Dim i As Integer
For i = 1 To 7

Chart3.Select

With ActiveChart.Axes(xlValue)
.MinimumScale = Range("ResultsMin" & i).Value
.MaximumScale = Range("ResultsMax" & i).Value
.MinorUnit = 0.01
.MajorUnit = 0.01
.Crosses = xlCustom
.CrossesAt = 0
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With

Next i

End Sub

Ähnliche fragen