Bild an Excel übergeben

[ORGADATA AG]

Hallo!
Kann ich mit OLE auch Bilder an Excel übergeben?

[shmia]

Ja, habe folgendes durch Makro-Aufzeichnung erhalten:

Delphi-Quellcode:

var
  newpic : OleVariant;
begin
   newpic := ActiveSheet.Pictures.Insert('C:\einBild.jpeg');
   // ActiveSheet: selber überlegen, wo du das herbekommst !

   newpic.ShapeRange.Height := 112.5;
   newpic.ShapeRange.Width := 180;
   newpic.ShapeRange.Rotation := 0;

[ORGADATA AG]

super das geht! danke!