Re: [de-users] Diagramm Range per Makro ändern

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 ------
Von: "Gerhard Weydt" <gerhard.weydt@t-online.de>
An: users@de.libreoffice.org
Gesendet: 28.01.2021 20:15:55
Betreff: Re: [de-users] Diagramm Range per Makro ändern

> 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
>
> Am 28.01.2021 um 19:55 schrieb OoOHWHOoO:
> > 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
>
>
> -- Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
> Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
> Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
> Listenarchiv: https://listarchives.libreoffice.org/de/users/
> Datenschutzerklärung: https://www.documentfoundation.org/privacy
--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy