Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige