Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Nochmal Notes nach Excel (SeriesCollection)

(1/1)

celsp:
Hallo, ich bin mit meiner Excelausgabe aus Notes zwar etwas weiter aber scheitere momentan an einer Sache: Ich möchte ein "Linie - Säule" Diagramm erstellen. In der Folge möchte ich den Datenbereich festlegen, also "SeriesCollection". Wenn ich den Datenbereich festlegen will kommt nachfolgende Fehlermeldung:

"Microsoft Office Excel: Die Values-Eigenschaft des Series-Objektes kann nicht festgelegt werden."

Hat so etwas schon mal jemand gemacht, hat jemad eine Idee?

Ich gebe mal einen Teil des Codes mit an:

Set sheet = sheets(NameTabelle1)
Call sheet.activate
Set tchart = sheet.ChartObjects.Add( L, T, W, H )
   
With tchart.chart      
Call tchart.activate
.ApplyCustomType xlbuiltin, "Linie - Säule"
Call .SetSourceData(sheet.Range("B6:B8", "C6:D8"), xlColumns)      
.HasTitle = False
.Location xlLocationAsObject, sheet.Name
   
.SeriesCollection(1).Delete
.SeriesCollection(1).Delete
.SeriesCollection.NewSeries
.SeriesCollection.NewSeries
.SeriesCollection(1).Select
      
.SeriesCollection(1).Values =  "=Daten!R6C2:R8C2"
.SeriesCollection(1).Name = "=Daten!R5C4"      
.SeriesCollection(1).XValues = "=Daten!R6C2:R8C2"
.SeriesCollection(2).Values = "=Daten!R6D4:R8D4"
.SeriesCollection(2).Name = "=Daten!R5D4"         
End With

Bei der ersten Values Eigenschaft kommt der Fehler.

Vielen Dank im voraus!!

ata:
... könnte vielleicht am Delete, bzw. NewSeries liegen - du sprichst direkt Elemente an - haben die damit automatisch ein Array?

Toni

celsp:
An den Befehle Delete und NewSeries liegt es nicht. Ohne diese Befehle erhalte ich das gleiche Ergebnis!

ata:

--- Zitat ---Die Values-Eigenschaft des Series-Objektes kann nicht festgelegt werden.
--- Ende Zitat ---

... ich habe wohl zu schnell d'rüber gelesen - es geht anscheinend nicht, die Eigenschaft scheint nur Readable zu sein...

Toni

Navigation

[0] Themen-Index