Seite 1 von 1

Kurven aus Diagramm ausblenden

Verfasst: Mi 23. Mär 2011, 12:55
von Eryngium maritimum
Hallo,

es geht mir um eine Auswertung von Telefonrechnungen.
ich möchte gerne die Auswertung in einem Diagramm darstellen.
Ich habe pro Rechnung ein Arbeitsblatt angelegt, und als erste Arbeitsblatt das Diagramm mit den einzelnen Nummern.
Das Diagramm zieht sich die Daten für die einzelnen Kurven aus den jeweiligen Arbeitsblätter.
Nun zu meinem Problem:
Zur besseren Darstellung möchte ich gerne einzelene Kurven ausblenden.
"Das Allwissende Google" hat mir berichtet, das das Ausblenden von Kurven "nur"(?) möglich ist, wenn man die entsprechende Datenreihen auf dem entsprechenden Arbeitsblatt ausblendet. Das funktioniert zwar, ist aber eher unpraktisch, da man genau genommen jede Datenreihen auf jedem Arbeitsblatt ausblenden müsste.
Nun habe ich mir exemplarisch mal einen kleine Funktion geschrieben, die die entsprechenden Datenreihen auf jedem Arbeitsblatt ausblenden. Dies wird über einen CheckButton gesteuert.

Code: Alles auswählen

FUNCTION CB_Handynummer

DIM oSheet as Object
DIM oRow as Object
DIM z as Integer
DIM Anzahl as Integer
DIM ChoosenRow as Integer

oDocument = ThisComponent

Anzahl = oDocument.Sheets.count

ChoosenRow = 30

For z = 1 to (Anzahl - 2)

	oSheet = ThisComponent.Sheets(z)
	oRow = oSheet.getRows().getByIndex(ChoosenRow - 1)

	IF oRow.IsVisible = FALSE THEN 
	oRow.IsVisible = TRUE 
	ELSE 
	oRow.IsVisible = FALSE 
	END IF

NEXT

END FUNCTION
Die Funktion hat soweit Effekt, das die Zeilen tatsächlich ausgeblendet werden, aber leider aktualisiert sich das Diagramm bzw. die entsprechende Kurve nicht.
Fazit: Ein manuelles Ausblenden von Datenreihen läßt die Kurve verschwinden, ist aber eher unpraktisch. Ein code-gesteuertes Ausblenden der Zeilen funktioniert, aber das Diagramm aktualisiert sich nicht.

Hat jemand eine Idee wie man am besten verfährt, wenn man Kurven in einem Diagramm selektiv aus- bzw- einblenden möchte?
Oder kennt jemand einen Befehl zum "refreshen" des Diagrammes nach dem Ausführen des o.g. Quellcodes.

Danke für's Gedanken machen!