Foros Club Delphi - pegar imagen a word desde delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)

- - pegar imagen a word desde delphi (https://www.clubdelphi.com/foros/showthread.php?t=6577)

ciscu

13-01-2004 18:56:23

pegar imagen a word desde delphi

Saludos a todos!!!

Podríais darme algun ejemplo de código para pegar una imagen a word de Office desde una aplicación de delphi?

Es que hago una captura de pantalla de mi programa en delphi(o donde sea),
la guardo en una bitmap con el siguiente codigo:

Bmp:=Tbitmap.Create;
Bmp.Height:=1000;
Bmp.Width:=1000;
Bmp.Canvas.CopyRect(Rect(1,1,1000,1000),Canvas,Rect(1,1,1000,1000));
Bmp.SaveToFile('c:\bmp.bmp');
Bmp.Free;

y el último paso que quiero hacer es pegar esta imagen en un archivo word, pero todo desde mi aplicacion delphi. Como pegar una imagen a word??

Os agradeceré si me dais alguna solucion u otro modo de hacerlo

Gracias de antemano!!! :D

roman

13-01-2004 19:43:36

Experimenta con algo así

Código:

var

  LinkToFile: Olevariant;

  SaveWithDocument: OleVariant;

  Range: OleVariant;



begin

  LinkToFile := false;

  SaveWithDocument := true;

  Range := WordDoc.Range;



  WordDoc.Range.InlineShapes.AddPicture(

    'c:\bmp.bmp',

    LinkToFile,

    SaveWithDocument,

    Range

  );

donde WordDoc es una componente TWordDocument.

ciscu

14-01-2004 11:47:45

Hola, tengo un pequeño problema

He insertado tu código en mi programa y no sé si funciona o no porque no sé donde ubica el fichero Word, es decir, como sé que esta imagen se pega en cual fichero Word?, el que yo diga?, uno predeterminado con nombre ya establecido, etc...?

Espero tu respuesta

Gracias de antemano :)

ciscu

14-01-2004 12:00:52

Hola otra cosa si no te importa!!!

El tamaño de la imagen pegada en el archivo Word la puedes escoger tu o sale predeterminada??

Si me contestas una de las dos preguntas me considerare afortunado

Gracias!!!!

La franja horaria es GMT +2. Ahora son las 06:18:44.