![]() |
#2 |
Участник
|
была подобная задачка для формирования Прайс Листа, сделал так:
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() |
|