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

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

Am 28.01.2021 um 20:50 schrieb OoOHWHOoO:
> 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