Y-Achse automatisch Skalieren

Bild

Betrifft: Y-Achse automatisch Skalieren
von: Tilo
Geschrieben am: 14.04.2005 13:16:09
Hi,
habe ein Problem mit der Y-Achsenskalierung. Erstelle ein Diagramm aus
dynamischen Werten. Ich möchte nun den Anfangswert der Daten als niedrigsten
Wert auf der Y-Achse haben.
Egal wie ich es versuche fängt das Diagramm immer bei 0 an!
Kann mir da jemand helfen???
Tilo

Bild

Betrifft: AW: Y-Achse automatisch Skalieren
von: Bert
Geschrieben am: 14.04.2005 13:28:42
Hi,
wo ist dein Code?
mfg Bert
Bild

Betrifft: AW: Y-Achse automatisch Skalieren
von: Tilo
Geschrieben am: 14.04.2005 13:39:25
Hier folgt der Code für das Diagramm.
Habe es aufgenommen. Geht das überhaupt so?
Der Wert in .Minimum.Scale soll nun variabel sein.
Gruss Tilo


Sub Makro()
    Range("M20:O89").Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Grafik").Range("N20:O89"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=Grafik!R20C13:R89C13"
    ActiveChart.SeriesCollection(2).XValues = "=Grafik!R20C13:R89C13"
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = 35000
        .MaximumScaleIsAuto = True
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
End Sub

Bild

Betrifft: AW: Y-Achse automatisch Skalieren
von: Bert
Geschrieben am: 14.04.2005 13:52:43
Hi,
"Der Wert in .Minimum.Scale soll nun variabel sein."
Ja, woher soll der wert kommen? Du hast zwei Datenreihen aus welcher von den beiden?
Soll es das Minimum sein?
mfg Bert
Bild

Betrifft: AW: Y-Achse automatisch Skalieren
von: Tilo
Geschrieben am: 14.04.2005 13:59:19
Hi,
der Anfangswert für die Y-Achse (Minimum) steht in "N20". Der Max Wert in "O89"
Gruss Tilo
Bild

Betrifft: AW: Y-Achse automatisch Skalieren
von: Bert
Geschrieben am: 14.04.2005 14:06:03
Hi,
einfach so: .MinimumScale = Sheets("Grafik").Range("N20")
mfg Bert
Bild

Betrifft: AW: Y-Achse automatisch Skalieren
von: Tilo
Geschrieben am: 14.04.2005 14:08:44
Ja sauber,
vielen Dank.
Gruss Tilo
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Y-Achse automatisch Skalieren"