x-Achse bei Liniendiagramm mit VBA
27.07.2004 14:23:18
Cirrus
Ich brauch mal wieder Eure Hilfe:
Ich habe ein Diagramm, das eine Zeitreihe der Temperatur zeigt (jeder Tag ein Wert). Per VBA möchte ich nun den angezeigten Zeitausschnitt verändern, also die Einstellungen der x-Achse.
Mit dem Rcorder habe ich nun den untenstehenen Code aufgenommen und wollte dann die genauen Daten durch strings ersetzt und so.
Aber: Auch wenn ich nur das aufgenommene Makro SOFORT wieder "abspiele" bekomme ich die Fehlermeldung: Laufzeitfehler 1004, die Minumum Scale Eigenschaft des Axis-Abjektes kann nicht festgelegt werden.
Warum funktioniert das nicht?
Das gerade aufgezeichnete Makro müsste doch lauffähig sein, oder?
Für Hilfe wäre ich sehr dankbar!
Liebe Grüße
Cirrus
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = "01.02.2002"
.MaximumScale = "02.02.2002"
.BaseUnitIsAuto = True
.MajorUnitIsAuto = True
.MinorUnitIsAuto = True
.Crosses = xlAutomatic
.AxisBetweenCategories = True
.ReversePlotOrder = False
End With
ActiveWindow.Visible = False