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

Hallo Bernd,

schau mal hier

http://oooforum.de/viewtopic.php?t=68337

da erstellt einer ein Diagramm via Makro:

http://oooforum.de/download/file.php?id=15089&sid=92a73019698b14b0392d404b84206836

CALC-Datei mit Makro zum Download (das Makro funktioniert, hab's eben 
ausprobiert)

Vielleicht hilft Dir das weiter,
viele Grüße

Hans-Werner :-))


------ Originalnachricht ------
Von: "Bernd Obermayr" <lists@bobermayr.de>
An: "users@de.libreoffice.org" <users@de.libreoffice.org>
Gesendet: 28.01.2021 13:39:46
Betreff: [de-users] Diagramm Range per Makro ändern

> Hallo,
> ich versuche per makro Parameter von Diagrammen (Charts) zu verändern.
> Das gelingt nur teilweise.
>
> Der Code funktioniert nicht:
> '''' Geht nicht. Zerstört das Diagramm!
> ''   Der Versuch die Ranges der Diagramme zu verändern          
> '               cRg=Chart.getRanges()
> '               For j=1 To ubound(cRg)
> '                       
> '                       If cRg(j).EndRow <> 550 then
> '                               cRg(j).EndRow=550
> '                               debug=debug & "Cart(" & i & ") Range(" & j & ")" & chr(10)
> '                       End if
> '               Next j
> '               Chart.setRanges(cRg)    
> Danach ist das Diagramm kaputt: Die Datenbereiche sind weg. Weiter hab
> ich garnicht
> mehr nachgesehen.
>
> Den Code habe ich teilweise aus OOME von Andrew Pintonyak
> Was ist da Falsch? Greife ich eventuell
> Hinweise aus dieselbe Beobachtung hab ich im Netz auch gefunden,
> leider keine Lösung :(
> <https://oooforum.de/viewtopic.php?t=50127>
> <https://de.openoffice.info/viewtopic.php?t=11097>
>
>
>
> Die komplette Routine:
> ----8<-----
> public Sub SetChartXAxisMinDate()
> '** Das Startdatum der Skala setzen
> '** Wird von den Ereignissen "Text geändert" und "Nach Aktualisierung" des
> '** Controls "ChartXAxisMinDate" (Tab Diagramme, Datumsfeld rechts Oben)
> getriggert
> dim ChartDoc
>    Dim Charts As Object
>    Dim Chart as Object
>    Dim oSheet
>    Dim oForm
>    Dim i%
>    Dim aDate
>    Dim DateStr$
>    Dim size
>    Dim Cell
>    Dim debug$
>    Dim cRg
>    Dim j%
>
>         cRg=createUnoStruct("com.sun.star.table.CellRangeAddress")
>         size=createUnoStruct("com.sun.star.awt.Size")
>         oSheet=Thiscomponent.sheets.getByName("Diagramme")
>         oForm=oSheet.Drawpage.Forms.getByName("Formular")
>         Cell=oSheet.getCellRangeByName("N7")
>         aDate = createUnoStruct("com.sun.star.util.Date") 'Holen des Datums
> geht nur mit der struct
>         aDate=oForm.getByName("ChartXAxisMinDate").Date ' .Text ist nicht
> immer aktuell??
>     'DateStr=aDate.Day & "." & aDate.Month  & "." & aDate.Year
>         DateStr = ConvertDateTime(aDate, "STRING") '''' --> mytools.modDate
>         Cell.String=Datestr
>
> 'Mri oSheet.Charts.getByIndex(0)
>         For i=0 To oSheet.Charts.count-1
>                 Chart = oSheet.Charts.getByIndex(i)
>                 ChartDoc = Chart.getEmbeddedObject()            
>
>                 if i=0 then 'Für den Test. Nur das 1. Diagramm  
> '''' Geht nicht. Zerstört das Diagramm!
> ''   Der Versuch die Ranges der Diagramme zu verändern          
> '               cRg=Chart.getRanges()
> '               For j=1 To ubound(cRg)
> '                       
> '                       If cRg(j).EndRow <> 550 then
> '                               cRg(j).EndRow=550
> '                               debug=debug & "Cart(" & i & ") Range(" & j & ")" & chr(10)
> '                       End if
> '               Next j
> '               Chart.setRanges(cRg)    
>
>
>                         'msgbox ChartDoc.Diagram.XAxis.NumberFormat
> '''' Geht nicht
> ''   Der Versuch die Grösse der Diagramme zu ändern
>                         size=ChartDoc.Drawpage.getByIndex(0).getSize()
>                         msgbox size.width 'ist immer 31286
>                         size.Width=40000 'Damit eine Veränderung sichtbar würde
>                         ChartDoc.Drawpage.getByIndex(0).Size=size
>                         size=ChartDoc.Drawpage.getByIndex(0).getSize()
>                         msgbox size.width 'Zeigt die Änderung an. Aber es wird nicht wirklich
> geändert
>                 End If
>                 ChartDoc.Diagram.XAxis.Min=DateValue(DateStr) '09.11.2020
>                 'ChartDoc.Diagram.XAxis.NumberFormat=141 'NN TT.MM
>                 ChartDoc.Diagram.XAxis.NumberFormat=131 'TT.MM
>         Next i
> 'mri Chart
> End Sub
>
>
> --
> Gruss
>   Bernd
>
> --
> 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