Seite 1 von 1

Diagramm, Bereich für die Legende

Verfasst: Di 25. Jun 2024, 10:22
von StefKe
Noch eine Frage vom Unwissenden an alle fleißigen Helfer:
Es geht um ein Beispiel aus der deutschen Übersetzung von Andrew Pitonyak, Seite 574.
Mittels:

Code: Alles auswählen

Sub ModifyChart
  Dim sName$, oSheet, oCharts, oChart, oData
  sName = "Temperaturen 1"
  
  oSheet = ThisComponent.Sheets(0)
  oCharts = oSheet.getCharts()
  If oCharts.hasByName(sName) Then
    oChart = oCharts.getByName(sName)
    oData = Array(oSheet.getCellRangeByName("A2:A8").getRangeAddress(), _
        oSheet.getCellRangeByName("B1:B8").getRangeAddress(), _
        oSheet.getCellRangeByName("C1:C8").getRangeAddress(), _
        oSheet.getCellRangeByName("D1:D8").getRangeAddress())
    oChart.setRanges(oData)
  End If
End Sub
wird der Datenbereich des Diagramms verändert indem eine Spalte entfernt wird.

Wenn aber der Zeilenbereich der Daten von A1:D8 auf A2:D7 geändert wird, ändert sich auch die Legende.
Bild
Kann, per Script, der Bereich für die Legende dahingehend eingestellt werden, dass generell nur der Spaltenkopf verwendet wird?
Danke
Stefan