"Dynamische" Data Ranges in Diagramm

[turtle47]

Hi sven-my,

unter folgender Bedingung aufrufen: einmal, beim Aufruf eines anderen sheets

Versuche mal folgendes:

Code: Alles auswählen

Sub Cell_chartDataChanged
oSheet = ThisComponent.sheets.getByIndex(0)
oSheetx = ThisComponent.sheets.getByIndex(1)
TimeCell = oSheet.getCellByPosition(8,0).value
oChart = oSheet.Charts.getByIndex(0)
mycell = osheet.getCellByPosition(7,0).value
myvalue = mycell
Dim oNewRange as new com.sun.star.table.CellRangeAddress
oNewRange.StartColumn = 0
oNewRange.EndColumn   = 3
oNewRange.StartRow    = 0
oNewRange.EndRow    = TimeCell
oNewRange.sheet = 1
oChart.Ranges = Array(oNewRange)
oZelle = ThisComponent.getCurrentSelection().getCellAddress()
	if oZelle.column = 9 and oZelle.Row = 0 then
	Zeit_max_schreiben
	myDoc = thisComponent
	myView = thisComponent.CurrentController
	mycell =  oSheet.getCellByPosition(8,0)
	myView.Select(mycell)	
	end if
End Sub

Viel Erfolg.

Jürgen

[sven-my]

Hallo Jürgen,

hab's heute morgen gleich ausprobiert --- klappt hervorragend.

Jetzt wird bei jedem Umschalten auf ein neues Diagramm erstmal der Maximalwert der x-Achse angezeigt, und nicht der Wert der vorhergehenden Werte-Tabelle, dann kann ich mir aussuchen, welchen Ausschnitt ich sehen will.

Erstklassig - ich danke Dir.

gruß
sven-my