ich importiere durch einen Report mehrere Bitmap Bilder. Diese möchte ich im C/AL Code verkleinern.
Die Abmessungen sind ca. 300 x 300 Pixel und Größe liegt bei 263 KB. Ich möchte die Größe auf die Hälfte verkleinern.
Ich streame die Bilder in Excel, was auch soweit funktioniert, aber die Bilder sind zu groĂź:
- Code: Alles auswählen
IF Picture.HASVALUE THEN BEGIN
Picture.CREATEINSTREAM(streamIn);
outFile.CREATE(ExcelExport+"No."+'.bmp');
outFile.CREATEOUTSTREAM(streamOut);
COPYSTREAM(streamOut, streamIn);
outFile.CLOSE;
END;
Ich definiere Höhe und Breite der Zellen für das Bild und evaluiere die Koordinaten für das Shape:
- Code: Alles auswählen
IF EXISTS(ExcelExport+"No."+'.bmp') THEN BEGIN
xlRange := Sheet.Range('B'+q);
xlRange.RowHeight := 235;
xlRange.ColumnWidth := 50;
EVALUATE(PosX, FORMAT(xlRange.Left));
EVALUATE(PosY, FORMAT(xlRange.Top));
xlShape:=Sheet.Shapes.AddPicture(ExcelExport+
"No."+'.bmp',1, 1,PosX+5,PosY+5,-1,-1);
xlShape.Select;
xlShape.Placement(1);
MODIFY;
End;
Kann ich hierbei schon die Größe des Bildes manipulieren?
Beste GrĂĽĂźe
Christian