Dimensionierung von Objekten
03.09.2002 13:54:28
matthias
ich mochte mit dem folgenden Makro die y-Achse von 3 Diagrammen ansprechen:
Sub achsenadjustierung()
Dim schleife%, chart As ChartObject
For schleife = 1 To 3
Maximum_y = WorksheetFunction.Even(WorksheetFunction.Max(Range("ChartMax" & schleife)))
'ActiveSheet.ChartObjects(diagramname).Activate
chart = "Diagramm" & schleife
With [chart].Axes(xlValue)
.MinimumScale = 0
.MaximumScale = Maximum_y
End With
With [Diagramm & schleife].Axes(xlValue, xlSecondary)
.MinimumScale = 0
.MaximumScale = Maximum_y
End With
Next
End Sub
Leider habe ich jedoch offenbar ein Dimensionierungsproblem, so daß ich "chart" nicht ansprechen kann.
Wer hat eine Idee?
Danke.
Matthias