Thema: Delphi Bild an Excel übergeben

Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#3

Re: Bild an Excel übergeben

  Alt 13. Nov 2007, 17:15
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;
Andreas
  Mit Zitat antworten Zitat