Discussion :

[LotfiB]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[blondelle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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);

[LotfiB]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Shape.OlePropertySet("LockAspectRatio", 1);

ça bloque
ciao

[blondelle]

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

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

[blondelle]

Je viens de trouver
Le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LotfiB]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LotfiB]

OK

c'est bon, voici également pour le redimensionnenment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[blondelle]

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

[LotfiB]

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