Axolot Data

Hello,

I want to copy images from one sheet to antoher sheet, there are two problems:

1. Sheet.Drawing.InsertImage method not worked with stream)
2. Image Scale. I used InsertImage with filename, this worked but previous image scale not preserved although I set new size.

Component version 5.20.61

test code like this

procedure TForm1.Button1Click(Sender: TObject);

const
fnXls = 'D:\Tests\xlsImages\dsi1.xls';
fnXls2 = 'D:\Tests\xlsImages\dsi2.xls';

var
Excel: TXlsReadWriteII5;
nSheet: TXLSWorkSheet;

i: integer;
fn: string;
nImage, Image: TXLSDrawingImage;
ST: TStream;
Editor: TXLSDrawingEditorImage;
cmW, cmH: double;
begin
Excel := TXLSReadWriteII5.Create(nil);
Excel.Filename := fnXls;
Excel.Read;

// add new sheet
nSheet := Excel.Add;
Excel.CopySheet( 0, nSheet.Index );

// copy images
for i:= 0 to Excel[0].Drawing.Images.Count-1 do begin
Image := Excel[0].Drawing.Images;


// save image height and width
Editor := Excel[0].Drawing.EditImage(Image);
cmH := Editor.CmHeight;
cmW := Editor.CmWidth;
Editor.Free;


// ?? not worked
// ST := TMemoryStream.Create;
// Image.SaveToStream(st);
// nImage := nSheet.Drawing.InsertImage(Image.UniqueName, ST, image.Col1, image.Row1, image.Col1Offs, Image.Row1Offs);
// ST.Free;

// save image to a file
fn := ChangeFileExt(fnXls, '.jpg');
Image.SaveToFile(fn);

// load saved images to new sheet
nImage := nSheet.Drawing.InsertImage(fn, image.Col1, image.Row1, image.Col1Offs, Image.Row1Offs, 1);

// set new image size
Editor := nSheet.Drawing.EditImage(nImage);
Editor.CmHeight := cmH;
Editor.CmWidth := cmW;
Editor.Free;
end;

Excel.SaveToFile(fnXls2);
Excel.Free;
end;

Thanks.