Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi WordApplication - Grafik einfügen (https://www.delphipraxis.net/136537-wordapplication-grafik-einfuegen.html)

Gentleman 2. Jul 2009 13:08


WordApplication - Grafik einfügen
 
Hallo,

ich arbeite gerade mit der WordApplication-Komponente, die bei TurboDelphi enthalten ist. Ich möchte gerne eine Grafik in ein Worddokument einfügen.

Bisher habe ich es nur geschafft einen Text ins Dokument einzufügen:
Delphi-Quellcode:
WordApplication1.Selection.TypeText('A');
Ich bin auch auf die Methode [i]InsertFile[i] gestoßen, aber damit komme ich nicht weiter. Sobald ich diese aus meinen Programm aufrufe, bekomme ich die Fehlermeldung "Typenkonflikt".


Gibt es einen Weg mit der WordApplication-Komponente eine Grafik ins ein Dokument einzufügen? Eine andere Lösung ohne die Verwendung von WordApplication würde mir auch weiterhelfen.


Vielen Dank.

toms 2. Jul 2009 13:14

Re: WordApplication - Grafik einfügen
 
Bei Google suchenWordDocument1.InlineShapes.AddPicture

Gentleman 2. Jul 2009 13:29

Re: WordApplication - Grafik einfügen
 
Ja, genau danach hatte ich gesucht! :thumb:

Gibt es darüber hinaus auch eine Möglichkeit dieses Bild an der aktuellen Position einzufügen (So, wie im Beispiel mit dem Text)?

toms 2. Jul 2009 13:39

Re: WordApplication - Grafik einfügen
 
Geht das nich analog so?

Delphi-Quellcode:
WordApplication1.Selection.InlineShapes.AddPicture(...)

Gentleman 2. Jul 2009 13:53

Re: WordApplication - Grafik einfügen
 
Perfekt, so funktioniert es! :)

Auf der Seite, die ich gefunden hatte, war eine etwas andere Variante erklärt worden.


Vielen Dank.


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz