Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Chartspace Achsen verändern

Forumthread: Chartspace Achsen verändern

Chartspace Achsen verändern
13.02.2008 16:42:48
Tut_ench_ammun
Hallo liebe Forummitglieder,
ich habe mir eine Formular und Code generiert, der mir aus einem Sheet Werte rauszieht und auf das Formular in einen Chartspace ausgibt. Jetzt skaliert er mir die Achsen automatisch - was ich aber nicht will. An die y-Achse komm ich ran, über:
....
With Test
Set objconstants = .Constants
.Charts.Delete (0)
.Charts.Add
.DataSource = Spreadsheet1
With .Charts(0)
.SeriesCollection.Add
.SeriesCollection.Add
.Axes(1).Scaling.Maximum = 22000 'Axis(1) ... y-Achse
.Axes(1).Scaling.Minimum = -22000
.Axes(0).Scaling.Maximum = 50000
.Axes(0).Scaling.Minimum = -50000
aber an der x-Achse scheiterts irgendwie. Mit ".Axes(0).Scaling.Maximum = 50000" funzt es nicht.
Vielen Dank für die Hilfe.
P.S.:
Wie kann man eigenentlich die Haupt- und Nebenintervalle über den Code ändern?
Grüße Tutti

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Chartspace Achsen verändern
14.02.2008 09:21:39
Tut_ench_ammun
Kaum machts man richtig gehts.
Die Achsenskalierung nicht am Anfang definieren, sondern nach der Bildung der Datenreihen und zwar so:
Code:
--------------------------------------------------------------------------------
With TEST
Set objconstants = .Constants
.Charts.Delete (0)
.Charts.Add
.DataSource = Spreadsheet1
With .Charts(0)
.SeriesCollection.Add
.SeriesCollection.Add
With .SeriesCollection(0)
.Type = chChartTypeScatterSmoothLine
.Line.Color = vbRed
.SetData chDimXValues, 0, "J8:J80"
.SetData chDimYValues, 0, "I8:I80"
End With
With .SeriesCollection(1)
.Type = chChartTypeScatterMarkers
.Marker.Style = chMarkerStyleX
.Interior.Color = vbBlue
.SetData chDimXValues, 0, "R23:R25"
.SetData chDimYValues, 0, "S23:S25"
End With
.Axes(0).Scaling.Maximum = 22000 'Axis(0) ... x-Achse
.Axes(0).Scaling.Minimum = -22000
.Axes(1).Scaling.Maximum = 22000 'Axis(1) ... y-Achse
.Axes(1).Scaling.Minimum = -22000
End With
End With
--------------------------------------------------------------------------------
MfG Tutti
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige