Diagramm Range per Makro ändern

de-users
#1

Hallo Bernd,

ich hab' mich jetzt mal da mit bissel "rumlesen" und TryAndError "reingewuselt":

+ Einfach die CALC-Datei [5] anlegen und das Makro [4] starten.
+ Dann "rangeAddress(0).EndRow = 31 ' = 31.0.21" de-kommentieren.
+ Dann kannst Du mit den "EndRow"-Werten "spielen", das Diagramm wird immer angepasst.

Falls Probleme, kann ich Dir die CALC und das Makro auch zum Download bereit stellen.

Vielleicht hilft Dir das weiter,
viele Grüße
Hans-Werner :-))

[1] https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Charts_in_Spreadsheets

[2] https://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1table_1_1XTablePivotCharts.html#a46c06f9f99599d4c32d7deef14948b52

Es gibt nur "addNewByName()" und "removeByName()", aber KEIN "modifyByName()".

Mit anderen Worten, man muss (wohl) erst das "alte" Diagramm löschen und legt dann das "neue" Diagramm an.

Blöd nur, mit "removeByName()" habe ich das Löschen nicht hinbekommen. Hab's dann mit "oShapes.remove(oShape)" gemacht. Erklären kann ich's nicht, vielleicht hat jemand im Forum eine passende Erklärung - oder ich hab' einfach nur was falsch gemacht ...

[3] https://forum.openoffice.org/en/forum/viewtopic.php?f=9&t=91518

[4] Makro

Sub ChartModify

Dim oDoc As Object
Dim oChart As Object
Dim oCharts As Object
Dim oSheet As Object
Dim oShape As Object
Dim oShapes As Object

Dim rangeAddress(0) As new com.sun.star.table.CellRangeAddress
Dim Rect As New com.sun.star.awt.Rectangle

oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
oShapes = oSheet.DrawPage

If (oShapes.getCount() > 0 ) Then ' falls noch kein Diagramm existiert
oShape = oShapes(0)
oShapes.remove(oShape)
EndIf

Rect.X = 6000
Rect.Y = 1500
Rect.Width = 20000
Rect.Height = 10000

rangeAddress(0).StartColumn = 0 ' Spalten-Index beginnt bei 0
rangeAddress(0).StartRow = 0 ' Zeilen-Index beginnt bei 0
rangeAddress(0).EndColumn = 1 ' = Spalte B
'rangeAddress(0).EndRow = 15 ' = 15.0.21
rangeAddress(0).EndRow = 31 ' = 31.0.21

oCharts = oSheet.Charts
oCharts.addNewByName("Chart1",Rect,RangeAddress(),True,True)

End Sub

[5] CALC-Datei

Datum | Wert
01.01.21 | 10
02.01.21 | 20
03.01.21 | 30
04.01.21 | 40
05.01.21 | 50
06.01.21 | 60
07.01.21 | 70
08.01.21 | 80
09.01.21 | 90
10.01.21 | 100
11.01.21 | 110
12.01.21 | 120
13.01.21 | 130
14.01.21 | 140
15.01.21 | 150
16.01.21 | 160
17.01.21 | 170
18.01.21 | 180
19.01.21 | 190
20.01.21 | 200
21.01.21 | 210
22.01.21 | 220
23.01.21 | 230
24.01.21 | 240
25.01.21 | 250
26.01.21 | 260
27.01.21 | 270
28.01.21 | 280
29.01.21 | 290
30.01.21 | 300
31.01.21 | 310

#2

Lieber Hans-Werner,

hast du meine Antwort mit dem gleichen Betreff von 18:22 nicht gesehen?  Es geht ja!

Und ein modifyByName ist mir noch nie untergekommen, und das braucht es auch nicht: man verwendet getByName, dann hat man das Objekt, dann kann man auf die Attribute zugreifen. Bei einem fiktiven modifyByName müsste man ja als Parameter die Eigenschaft und den Wert (der ja auch wieder ein Objekt sein kann) mitgeben. Das halte ich für komplizierter als das genannte Verfahren. Das wäre es insbesondere, wenn man geschachtelt über zwei, drei, ... Stufen erst eintauchen müsste, bis man das Objekt erreicht hat, das man eigentlich ändern will. Die geschachtelte Anweisung, die dann notwendig wäre, mag ich mir gar nicht vorstellen.

Herzliche Grüße
Gerhard

#3

Hallo Gerhard,

ein "modifyByName" ist mir auch noch nicht untergekommen. Ich hab' das nur so erwähnt um zu verdeutlichen, dass der Weg wohl löschen und neu anlegen ist. Mehr wollte ich damit in keiner Weise ausdrücken, zumal ja auch Bernd schrieb, dass er nur "add"-Beispiele gefunden hat und nicht wusste, wie er RANGE, SIZE etc eines bestehenden Diagramms ändern kann.

Sicherlich gibt es "viele Wege nach Rom" - ich empfinde den Weg "löschen" und "neu anlegen" am einfachsten, zumal Bernd ja das "Neu-Anlegen" eines Diagramms beherrscht. Da kann man neben dem RANGE auch noch alle anderen Sachen, die man möchte, modifizieren. Davon abgesehen, ich habe mich eben erst mit dieser Thematik beschäftigt, habe also keinerlei Erfahrungswerte und das ist das Erste, was mir als Möglichkeit eingefallen ist.

Deine Antwort von 18:22 hatte ich nicht mitbekommen, war zu beschäftigt mit LESEN und PROBIEREN ...

Viele Grüße
Hans-Werner :-))

------ Originalnachricht ------

#4

Hallo Hans-Werner,

wenn man nur eine Eigenschaft ändern will, ist doch Löschen und Neuanlegen ein Riesenaufwand, gerade bei einem Diagramm, bis man da alle Einstellungen programmiert hat! Und er will ja nur die Range ändern, weil sich die datenmenge vergrößert hat.

Viele Grüße
Gerhard