Seite 1 von 1
X-Y Diagramm, alle Datenreihenlinien formatieren
Verfasst: Do 4. Apr 2013, 14:57
von 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
Re: X-Y Diagramm, alle Datenreihenlinien formatieren
Verfasst: Do 4. Apr 2013, 22:34
von 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
Re: X-Y Diagramm, alle Datenreihenlinien formatieren
Verfasst: Mo 8. Apr 2013, 10:27
von Jossele
Danke, werd ich gleich ausprobieren