* Auf einem Blatt ist ein Chart plaziert, dessen Axen-Eigenschaften MaximumScale ich über VBA verstellen möchte.
* Manuell geht das.
* Über ein Makro geht das
* Der Makro-Code als VBA-Code bricht mit Fehler 1004 ab.
* Aber nur in der Datei. In anderen Dateien geht der Code.
Hier ist er:
ActiveSheet.ChartObjects("Diagramm 1").Activate
' Das geht
ActiveChart.SeriesCollection(1).XValues = "=Testblatt!R7C11:R" & _
Trim$(Str$(reihen + 6)) & "C11"
ActiveChart.SeriesCollection(1).Values = "=Testblatt!R7C10:R" & _
Trim$(Str$(reihen + 6)) & "C10"
'Das geht nicht
With ActiveChart.Axes(xlValue)
.MinimumScale = 0.5
.MaximumScale = reihen + 0.5
.MinorUnit = 1
.MajorUnit = 1
.Crosses = xlCustom
.CrossesAt = 0.5
.ReversePlotOrder = True
.ScaleType = xlLinear
End With
Wer kann mir helfen?
DANKE!!!