https://bugs.freedesktop.org/show_bug.cgi?id=43979
--- Comment #1 from Frieder <[email protected]> 2011-12-20 07:20:16 PST --- I can only reproduce the bug, if the macro is updating the cell-range of the chart as well. What,by the way , doesn't function correctly in LO3.4.4 Dim CellRangeAddress(1) As New com.sun.star.table.CellRangeAddress Dim n% oDiagrammSheet=ThisComponent.Sheets.getByName("Diagramme") 'Tabelle "Diagramme" als Variable definieren 'Nummer der Tabelle Diagramm_Daten ermitteln For n = 0 To ThisComponent.Sheets.getCount - 1 'anzahl der Tabellenblätter If ThisComponent.Sheets(n).Name = sDataSheet Then Exit For Endif Next ' n ist jetzt der index der Tabelle Diagramm_Daten (Z.B.: 0 ist die erste Position) 'Datenbereich für das Diagramm adressieren CellRangeAddress(0).Sheet = n CellRangeAddress(0).StartColumn = 13 CellRangeAddress(0).StartRow = 3 CellRangeAddress(0).EndColumn = 15 CellRangeAddress(0).EndRow = 43 oChart1 =oDiagrammSheet.getCharts().getByIndex(0) 'Das Diagramm als object festlegen oChart1.HasColumnHeaders = True oChart1.HasRowHeaders = True 'oChart1.EmbeddedObject.Diagram.DiagramType = "com.sun.star.chart.XYDiagram" 'Datenbereich neu zuweisen oChart1.setRanges(Array(CellRangeAddress(0))) -- Configure bugmail: https://bugs.freedesktop.org/userprefs.cgi?tab=email ------- You are receiving this mail because: ------- You are the assignee for the bug. _______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
