|
была подобная задачка для формирования Прайс Листа, сделал так:
Name DataType Subtype Length
vr Boolean
PicInt Integer
PicTop Decimal
PictureFile File
PicLeft Integer
PicLeft:=580;
vr:=EVALUATE(PicInt,Cnt);
PicTop:=XlWrkSht.Range('H1:H'+FORMAT(PicInt-1)).Height;
PictureFile.CREATETEMPFILE;
PicturePath:=PictureFile.NAME;
PictureFile.CLOSE;
"Picture/Text".EXPORT(PicturePath,FALSE);
XlWrkSht.Range('c' + Cnt+':h' + Cnt).RowHeight:=40;
XlWrkSht.Shapes.AddPicture(PicturePath, 1, 1, PicLeft, PicTop-40,40,40);
выгружаемые рисунки маштабирую до размеров 40*40
Cnt - счетчик строк
P.S.: при небольших объемах данных (до 800 строк), все хорошо выгружается во всех версия офиса (2003-2010), но если объем превышает указанное кол-во строк, то на 2003 офисе все идет через Ж..., зато 2007 и 2010 отрабатывают на ура!
и еще, если все же надумаете чистить за собой хвосты, в виде временных файлов, то делайте это на OnPostReport()
|