PhilLu
Messages postés251Date d'inscriptionlundi 9 novembre 2009StatutMembreDernière intervention11 mai 2021
-
Modifié par jordane45 le 25/04/2016 à 23:53
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 2022
-
26 avril 2016 à 13:33
Bonjour,
Je tente d'insérer une image dans un document Word.
(à la place du tag "###1")
L'image semble bien insérée mais n'est pas visible?!?
(Quand je clique dessus, le bord est bien présent)
var
Fword,FDocument,Range:OleVariant;
Filename:String;
MyImage: TBitmap;
begin
MyImage:= TBitmap.Create;
Filename := FWord.ActiveDocument;
Range := FWord.ActiveDocument.Content;
Range.Find.Execute('###1');
if Range.Find.Found = True Then
begin
FWord.ActiveDocument.InlineShapes.AddPicture(extractFilePath(application.exename)+'pic1.jpg',True, True);
end;
end;