ich lege in einem Diagramm (X,Y) paarweise Kurven übereinander, um einen
Temperaturverlauf (auf der Y-Achse) darzustellen. Da die beiden
Kurven zeitlich nacheinander als Daten vorliegen, stelle ich die zweite
Kurve auf der 2. X-Achse dar.
Um das Diagramm zeitlich an die Daten anzupassen, benutze ich ein paar Zeilen
VBA-Code. In den Zellen A21 und C21 bzw. D21 und F21 stehen die MIN - u. MAX- Werte für die Achbegrenzung der X-Achsen
-------------
Sub Diagramm1_Autoskalieren()
'$$ 1. X- Achse
With Charts("Diagramm1").Axes(xlCategory, xlPrimary)
.MinimumScale = Worksheets("DiagrammSteuerung").Range("A21").Value
.MaximumScale = Worksheets("DiagrammSteuerung").Range("C21").Value
.TickLabels.Font.Size = 8
.TickLabels.NumberFormat = "dd.mm. hh:mm"
.Crosses = xlCustom
.CrossesAt = 0
End With
'$$ 2. x-Achse
With Charts("Diagramm1").Axes(xlCategory, xlSecondary)
.MinimumScale = Worksheets("DiagrammSteuerung").Range("D21").Value
.MaximumScale = Worksheets("DiagrammSteuerung").Range("F21").Value
.TickLabels.Font.Size = 8
.TickLabels.NumberFormat = "dd.mm. hh:mm"
.Crosses = xlCustom
.CrossesAt = 0
End With
End Sub
MEIN PROBLEM;
Nach Ausführen des Makros ist zwar die 2. X-Achse noch zu sehen. Aber die
2. Y-Achse ist verschwunden. Die Kurven werden korrekt dargestellt.
Im Dialogfeld "Diagrammoptionen" sind alle 4 Achsen durch ein Häckchen aktiviert.
Wie bekomme ich die 2 Y-Achse wieder angezeigt ?
Vielen Dank für Eure Mühe
Heiko