X-Y Diagramm, alle Datenreihenlinien formatieren

[Jossele]

Hallo Leute,
gibt es eine Möglichkeit in einem X-Y-Diagramm alle Linien der Datenreihen (sind in meinem Beispiel 100 Stück) in einem Rutsch zu formatieren?
Alternativ dazu: Wie kann man den Formatstandard der Datenlinien bei der Diagrammerstellung verändern?

lg

[F3K Total]

Hi,
habe keinen eingebauten Weg gefunden, mit diesem Makro kann man z.B. die Linenfarbe in ca. 2 Sekunden für 100 Linien einstellen.

Code: Alles auswählen

sub S_Datenreihe_Liniendiagramm_formatieren
    oembeddedObject = thiscomponent.sheets(0).charts(0).embeddedObject'erstes Diagramm auf der ersten Tabelle
    oembeddedObject.lockControllers
    odiagram = oembeddedObject.diagram
    oDataSequences = oembeddedObject.UsedData.DataSequences
    for i = 0 to  ubound (oDataSequences)
    do 
       oDataRowProperties = odiagram.getDataRowProperties(i)
       oDataRowProperties.LineColor = RGB(0,0,255)
    loop while oDataRowProperties.LineColor <> RGB(0,0,255)
    next i
    oembeddedObject.unlockControllers
end sub

Gruß Rik

[Jossele]

Danke, werd ich gleich ausprobieren