procedure TMForm.ColorchartsOnSlide(slide:variant);
var
 datasheet : variant;
 graph : variant;
 ci,i,k,sc,pp:integer;
 rc:boolean;
 sname:string;
 v1,v2:variant;
begin

 for i:= 1  to slide.Shapes.Count do
  if slide.Shapes.item(i).Type =  7  {msoEmbeddedOLEObject} then
  begin
   v2:=slide.Shapes.item(i).OLEFormat.ProgID;
   if pos('MSGraph.Chart',slide.Shapes.item(i).OLEFormat.ProgID)>0 then
    begin
     graph:=slide.Shapes.item(i).OLEFormat.Object;
     datasheet:=graph.Application.datasheet;
     if graph.Application.plotby =  1 {xlRows} then rc:=True
     else rc:=False;
     case graph.Type of
     {xlPie} 5 ,{xl3DPie}- 4102 :
              begin
               rc:=Not(rc);
               for sc:= 1  to  1 {graph.SeriesCollection.Count} do
                for pp:= 1  to graph.SeriesCollection(sc).Points.Count do
                 begin
                  if rc then sname:=datasheet.Cells[pp +  1 ,  1 ]
                  else sname:=datasheet.Cells[ 1 , pp +  1 ];
                  ci:=FindInPalette(sname);
                  if ci>- 1  then
                   begin
                    graph.SeriesCollection(sc).Points(pp).fill.visible:=true;
                    graph.SeriesCollection(sc).Points(pp).Interior.Color:=TPaletteRec(PaletteTree.Items[ci].data).PrimaryColor;
                   end;
                 end;
              end;
      else
               for sc:= 1  to graph.SeriesCollection.Count do
                begin
                 if rc then sname:=datasheet.Cells[sc +  1 ,  1 ]
                 else sname:=datasheet.Cells[ 1 , sc +  1 ];
                 ci:=FindInPalette(sname);
                 if ci>- 1  Then
                  begin
                   v1:=graph.SeriesCollection(sc).chartType;
                   case graph.SeriesCollection(sc).chartType of
                   {xlLine} 65 , 4  : graph.SeriesCollection(sc).Border.Color:=TPaletteRec(PaletteTree.Items[ci].data).PrimaryColor;
                   {xlPie} 5 ,{xl3DPie}- 4102  : ;
                   else graph.SeriesCollection(sc).Interior.Color:=TPaletteRec(PaletteTree.Items[ci].data).PrimaryColor;
                   end;
                   graph.application.update;
                  end;
                end;
      end;
       graph.application.update;
       graph.application.quit;
       graph:=unassigned;
       DataSheet:=unassigned;
    end;
  end;
end;