[de-users] Diagramm Grösse per Makro ändern

Hallo,
ich versuche per makro die Grösse von Diagrammen (Charts) zu verändern.
Das gelingt nur teilweise.

Der Code funktioniert 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

Greife ich evtl. auf das falsche Object zu? Ich verstehs nicht :(


Was funktioniertist dieser Code:
                ChartDoc.Diagram.XAxis.Min=DateValue(DateStr) '09.11.2020
                ChartDoc.Diagram.XAxis.NumberFormat=131 'TT.MM


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