diff --git a/components/fpspreadsheet/examples/other/chart/bubblechart_write_demo.lpr b/components/fpspreadsheet/examples/other/chart/bubblechart_write_demo.lpr
index 407da5a51..7022baa2b 100644
--- a/components/fpspreadsheet/examples/other/chart/bubblechart_write_demo.lpr
+++ b/components/fpspreadsheet/examples/other/chart/bubblechart_write_demo.lpr
@@ -68,7 +68,6 @@ begin
     ser.Fill.Color := $c47244; //72c4 scBlue;
     ser.Fill.Transparency := 0.25;
     ser.DataLabels := [cdlCategory];
-    ch.AddSeries(ser);
 
     {
     book.WriteToFile(FILE_NAME + '.xlsx', true);   // Excel fails to open the file
diff --git a/components/fpspreadsheet/source/common/fpschart.pas b/components/fpspreadsheet/source/common/fpschart.pas
index 57807f704..51b14c74e 100644
--- a/components/fpspreadsheet/source/common/fpschart.pas
+++ b/components/fpspreadsheet/source/common/fpschart.pas
@@ -565,12 +565,14 @@ type
     FImages: TsChartImageList;
     function GetCategoryLabelRange: TsChartRange;
 
+  protected
+    function AddSeries(ASeries: TsChartSeries): Integer; virtual;
+
   public
     constructor Create;
     destructor Destroy; override;
     function GetWorksheet: TsBasicWorksheet;
 
-    function AddSeries(ASeries: TsChartSeries): Integer;
     procedure DeleteSeries(AIndex: Integer);
 
     function GetChartType: TsChartType;
diff --git a/components/fpspreadsheet/source/common/fpsopendocumentchart.pas b/components/fpspreadsheet/source/common/fpsopendocumentchart.pas
index 1a3128cb3..962d4c81b 100644
--- a/components/fpspreadsheet/source/common/fpsopendocumentchart.pas
+++ b/components/fpspreadsheet/source/common/fpsopendocumentchart.pas
@@ -1222,7 +1222,6 @@ begin
     'chart:scatter': series := TsScatterSeries.Create(AChart);
     else raise Exception.Create('Unknown/unsupported series type.');
   end;
-  AChart.AddSeries(series);
 
   ReadChartCellAddr(ANode, 'chart:label-cell-address', series.TitleAddr);
   if (series is TsBubbleSeries) then
diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetchart.pas b/components/fpspreadsheet/source/visual/fpspreadsheetchart.pas
index f8b121f7d..fa399a5dc 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetchart.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetchart.pas
@@ -1479,7 +1479,6 @@ begin
 
   FChart.Prepare;
   UpdateChartAxisLabels(ch);
-//  UpdateBarSeries(ch);
   FixAreaSeries(ch);
 end;