Insertion d'image avec OLE ds Word

Bonjour
Je voudrai "traduire" du code C++ builder qui pilote Word à l'aide des composants office XP (TWordApplication...) vers du code directement en Ole
exple apres le commentaire pour inclure une "3.jpg" mais l'équivalent en OleFunction ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10

// InlineShape * Shape=WordApplication1->Selection->InlineShapes->AddPicture( WideString(FilePath+"3.jpg"), // (OleVariant)false, (OleVariant)true, EmptyParam); vMSWord.OlePropertyGet("Selection").OleFunction("InlineShapes",WideString(FilePath+"3.jpg"), (OleVariant)false, (OleVariant)true, EmptyParam); // Shape->LockAspectRatio = msoTrue; // if (Shape->Height!=0) ratio=200.0/Shape->Height; // else ratio=1; // Shape->Height *=ratio; // Shape->Width *=ratio;

---

(exple visible sur http://www.baghli.com/bcb_ole.php)

Merci pour tte aide

Salut LotfiB:
Normalement la fonction qui suit insere une image.

Code:

---

1 2 3 4 5

Variant vFileName; //vMSWord.OlePropertyGet("Selection").OleFunction("TypeParagraph"); vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\041227165954_31.jpg"; vMSWord.OlePropertyGet("Selection").OlePropertyGet("InlineShapes").OleProcedure("AddPicture", vFileName, false, true);

---

merci
AddPicture marche bien

reste le scale ;-)
c'est vraiment dur de trouver la syntaxe en Ole !
voici celle de TWordDocument, enfin... le mix

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Variant Shape=vMSWord.OlePropertyGet("Selection").OlePropertyGet("InlineShapes"); Shape.OleProcedure("AddPicture", WideString(FilePath+"3.jpg"), false, true); // Shape.OlePropertySet("LockAspectRatio", 1); // msoTrue // Height=Shape.OlePropertyGet("Height"); // Width=Shape.OlePropertyGet("Width"); // if (Height!=0) ratio=200.0/Height; // else ratio=1; // Height *=ratio; // Width *=ratio; // Shape.OlePropertySet("Height", Height); // Shape.OlePropertySet("Width", Width);

---

tu as une idée, pouquoi déjà

Code:

---

Shape.OlePropertySet("LockAspectRatio", 1);

---

ça bloque
ciao

Je ne parvien pas a faire fonctionner la fonction.
en cherchant dans la Faq Delphi j'ai trouve ceci

Citation:

---

auteur : bidou
Les images insérées dans le texte sont membres de la collection InlineShapes
Var Shape:InlineShape; FileName:OleVariant; LinkToFile:OleVariant; SaveWithDocument:OleVariant; begin FileName:='C:\developpez\logo_developpez.gif'; LinkToFile:= False; SaveWithDocument:= True; Shape := WordApplication1.Selection.InlineShapes.AddPicture( FileName, LinkToFile, SaveWithDocument, EmptyParam); With Shape Do Begin LockAspectRatio := msoTrue; Height := Height * 0.5; Width := Width * 0.5; End;end;
Ce code insère une image et la réduit de moitié.

---

Tous les essais que j'ai fait "LockAspectRatio" provoque une erreur

Je viens de trouver
Le code:

Code:

---

1 2 3 4

vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\041227165954_31.jpg"; Variant Shape = vMSWord.OlePropertyGet("Selection").OlePropertyGet("InlineShapes").OleFunction("AddPicture", vFileName, false, true); Shape.OlePropertySet("LockAspectRatio", true);

---

Ce qui permet d'avoir toujours des dimensions proportionnelles de l'image

tu sais pourquoi ?
parce qu'avant, on avait la collections des shape et non pas la shape que l'on vient d'ajouter...
la on manipule le seul objet...
voilà donc :

Code:

---

1 2 3

Variant Shape=vMSWord.OlePropertyGet("Selection").OlePropertyGet("InlineShapes").OleFunction("AddPicture", WideString(FilePath+"3.jpg"), false, true); Shape.OlePropertySet("LockAspectRatio", msoTrue); // msoTrue

---

de plus, Shape.OlePropertySet("LockAspectRatio", prefre true (ou msoTrue) à 1

OK

c'est bon, voici également pour le redimensionnenment

Code:

---

1 2 3 4 5 6 7 8

Height=Shape.OlePropertyGet("Height"); Width=Shape.OlePropertyGet("Width"); if (Height!=0) ratio=200.0/Height; else ratio=1; Height *=ratio; Width *=ratio; Shape.OlePropertySet("Height", Height); Shape.OlePropertySet("Width", Width);

---

je publie la comparaison entre l'utilisation des composants Office XP de Builder et directement le pilotage OLE (sur : http://www.baghli.com/bcb_ole.php).

• Génération d'un calendrier avec Word avec les composants TWordApplication et TWordDocument.
• Génération du même calendrier avec Word directement en Ole...Variant.
• Exemple d'un mass-emailer avec Excel et Indy9.

Je suis content que tu ai reussi ce que tu voulais.
A+

tu peux le reprendre ds ta FAQ que tu prepares, je pense que c'est un bon exemple pour que le sgens apprennent OLE Word !

ciao