Export Picture to Excel with Auto-scale

KeeperRU
KeeperRU Member Posts: 58
edited 2012-05-21 in NAV/Navision Classic Client
Hi,

I try to use something like this:
xlSheet.Shapes.AddPicture(FilePathAndName, 1, 1, 20, 20, 100, 100);

but problem with 2 last parameters, because my pictures have different size.
Which method may i use to export pictures without declare width and height?
(original size)

Comments

  • KeeperRU
    KeeperRU Member Posts: 58
    Or how can I get image size (in the BLOB field)?

    to put it in function:
    xlSheet.Shapes.AddPicture(FilePathAndName, 1, 1, 20, 20, WIDTH, HEIGHT)
  • Lamba
    Lamba Member Posts: 263
    Can u plz explain how u flowed the image in a Report's excel, from the start
  • KeeperRU
    KeeperRU Member Posts: 58
    That simple:
    ItemPicture.CALCFIELDS(Picture);
IF ItemPicture.Picture.HASVALUE THEN BEGIN
  FilePath := ENVIRON('TEMP') + '\IMG.bmp';
  ItemPicture.Picture.EXPORT(FilePath);
  XlsBuf.ExportPicture(FilePath, 1, 1, 0, 493, 370, 250);
END;

    Where XlsBuf is Record of (Excel Buffer).
    In Excel Buffer I create Function "ExportPicture":
    XlWrkSht.Shapes.AddPicture(FilePathAndName, Param2, Param3, Param4, Param5, Param6, Param7);
    Where XlWrkSht is Excel Automation.
    This method requred to determine this parameters (Param6 - WIDTH, Param7 - Height), but my pictures have very different sizes and I need auto-scale
  • Lamba
    Lamba Member Posts: 263
    I Keeper RU,
    I have a customized report in the series 50000,
    the report prints a image in classic.
    The export to excel functionality is completed.
    How could i get the same image that is printing for classic, in the excel sheet
  • KeeperRU
    KeeperRU Member Posts: 58
    Lamba wrote:
    I Keeper RU,
    I have a customized report in the series 50000,
    the report prints a image in classic.
    The export to excel functionality is completed.
    How could i get the same image that is printing for classic, in the excel sheet

    I have described above, all the necessary code.

    In "Excel Buffer" (table) I create Function "ExportPicture" (with 7 parameters):
    XlWrkSht.Shapes.AddPicture(FilePathAndName, Param2, Param3, Param4, Param5, Param6, Param7);

    In the report I call this function:
    XlsBuf.ExportPicture(FilePath, 1, 1, 0, 493, 370, 250);

Categories