Hallo,
oh ja, vielleicht sollte ich nichts posten, ohne es zu testen!
So funktioniert es bei mir:
Dim i As Long
Dim sWs As String
Dim wZeile As Long
For i = 0 To ActiveSheet.ChartObjects.Count - 1
sWs = Format(i \ 3 + 1, "00") 'Tabellenblatt
wZeile = i Mod 3 + 3 'Zeile in Spalte W
With ActiveSheet.ChartObjects(i + 1).Chart.Axes(xlValue)
.MaximumScale = Worksheets(sWs).Cells(wZeile, 23) 'Range("W3")
.MinimumScale = 0
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.DisplayUnit = xlNone
End With
With ActiveSheet.ChartObjects(i + 1).Chart.Axes(xlCategory)
.MaximumScale = Worksheets(sWs).Range("B5")
.MinimumScale = Worksheets(sWs).Range("B3")
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.DisplayUnit = xlNone
End With
Next
|