Diagramm, Bereich für die Legende

[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.

Kann, per Script, der Bereich für die Legende dahingehend eingestellt werden, dass generell nur der Spaltenkopf verwendet wird?
Danke
Stefan