Einzelnen Beitrag anzeigen

RoMe87

Registriert seit: 11. Okt 2009
Ort: Mannheim
8 Beiträge
 
Delphi 7 Personal
 
#9

Re: Excel fernsteuerun mit OLE: TExcelChart Objekt

  Alt 10. Nov 2009, 13:13
Hallo nochmal!
Erstmal Dank an Chemikus (Ich scheine jedes Mal zu danken, klingt langsam abgedrochen aber ich meine es ernst!)

Der Code hilft sehr gut fürs verständnis. Nur habe ich folgendes Probleme:

Das Diagramm soll in ein neues Sheet, von da aus auf das erste Sheet ("Daten") zugreifen. Es wird mehrmals (zyklisch) aktualisiert(das ist kein Problem DAU bin ich nicht mehr). Der VBA Code lautet in etwa so:

Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A1")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!R1C2:R9C2"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R1C1:R9C1"
ActiveChart.SeriesCollection(1).Name = "=""Daten"""
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Daten"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "X-Achser"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Y_Achse"
End With
ActiveChart.HasDataTable = False
End Sub

Ich kann aber aus irgendeinen Grund Activechart.seriescollection nicht einfach so übernehmen/umschreiben. Gibt mir da Fehlermeldungen zurück, bevor er abstürzt...
  Mit Zitat antworten Zitat