1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
// Cette procedure permet d'insérer une image à partir d'un emplacement déterminé
// Procedure InsererImage LinkToFile:=False, SaveWithDocument:=True
Variant vFileName;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\
041227165954_31.jpg";
vMSWord.OlePropertyGet("Selection").OlePropertyGet("InlineShapes").
OleProcedure("AddPicture", vFileName, LinkToFile:=False, SaveWithDocument:=True);
ou
vMSWord.OlePropertyGet("Selection").OlePropertyGet("InlineShapes").
OleProcedure("AddPicture", vFileName, false, true); |
Partager