1 2 3 4 5 6 7 8 9 10
|
Variant shpCanvas, vFileName;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Grue_Atelierxx.jpg";
shpCanvas = vWDocument.OlePropertyGet("Shapes").OleFunction("AddCanvas", 0, 0, 600, 800); // AddCanvas, left, top, width, height
// attention au Canvas et image ils doivent correspondre au niveau des dimensions
// sinon on a le droit a une exception totalement inexplicite
shpCanvas.OlePropertyGet("CanvasItems").OleFunction("AddPicture", vFileName, false, true, 1, 1, 599, 799); // AddPicture, FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height |
Partager