---

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

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tutti,

schmeiß' den Macro-Recorder an und verändere was an allen Achsen - dann sollte die korrekte Bezeichnung irgendwo auftauchen. BTW: Heißt es .Axis oder .Axes? Da meckert hoffentlich die Syntaxprüfung... Die Haupt- und Nebenintervalle kannst Du wahrscheinlich auch über den Recorder knacken?!

Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Paulchen.
Der Makrorecorder geht leider nicht, da ich mich beim Ausführen des Formulars in diesem befinde und das Diagramm zu sehen ist. Auf den Makrorecorder kann ich somit nicht zugreifen.
ABER:

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

[Diese Nachricht wurde von Tut_Ench_Ammun am 14. Feb. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
nachdem ich erneut festgestellt habe, dass die Hilfe in 2007 im Vergleich zu 03 sehr verbessert wurde, aber sich kein Mensch nur wg. der Hilfe eine neue Excel-Version zulegen wird, habe ich ein wenig gegoogelt und die ein oder andere Seite gefunden:
http://msdn2.microsoft.com/de-de/library/microsoft.office.tools.excel.  worksheet.chartobjects(VS.80).aspx 
http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html 
http://peltiertech.com/Excel/ChartsHowTo/VBAExcelXYCharts.html

[rredit]Rest hat sich erledigt, die links laß ich mal drin [/rredit]
------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info    Excel -Suche    RuA-Suche    FAQ-ACAD    Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP