Redimensionner une image dans Word

Version imprimable

10/07/2009, 15h07
XavierHWT

Redimensionner une image dans Word

Bonjour,

j'ai un programme qui doit creer des documents word, et j'utilise pour cela les procédures OLE de la FAQ.
Le problème c'est qu'il n'y a pas de code pour le redimensionnement d'image dedans. Comme j'ai pas d'autre doc sur OLE et word je suis un peu bloqué.

Quelqu'un sait comment faire ?

1 pièce(s) jointe(s)

Salut
en utilisant l'objet InlineShapes qui contient toutes les images
a partir de la tu peux obtenir un objet InlineShape par image
les propriétés de cet objet sont les suivantes:

ci dessous un exemple en VB que tu pourras aisément convertir
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim docActive As Document Set docActive = ActiveDocument Dim count count = docActive.InlineShapes.count If count > 1 Then With docActive .InlineShapes.Item(1).Height = 100 .InlineShapes.Item(1).Width = 100 End With End If
refère toi également aux fichiers d'aide pe VBAWD10.CHM pour word 10

cdlt

Salut ci-joint ub petit code d'exmple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Variant vMSWord, vWDocuments, vWDocument,vFileName;
void __fastcall TForm17::Button5Click(TObject *Sender)
{
   try
   {
 
	vMSWord = Variant::CreateObject("Word.Application");
   }
          catch(...)
	{
                  // ajoute ici ton code de nettoyage
	}
vMSWord.OlePropertySet("Visible", true);
vFileName = "c:\\doc3.doc";
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Open", vFileName);
}
//-------------------------------------------------------------------------
 
void __fastcall TForm17::Button6Click(TObject *Sender)
{
   Variant counter,Image;
   counter= vWDocument.OlePropertyGet("InlineShapes").OlePropertyGet("Count");
   if(counter >1)
   {
	Image=vWDocument.OlePropertyGet("InlineShapes").OleFunction("Item",1); // on prend l'image avec l'index 1
	Image.OlePropertySet("Height",300); // modification de la taille
	Image.OlePropertySet("Width",240);  
	}
  counter = Unassigned;
  Image = Unassigned;
}
 
//-------------------------------------------------------------------------
 
/* ne pas oublier de libérer les variants  vMSWord, vWDocuments, vWDocument,vFileName en les initialisant à Unassigned
cette opération peut-être réalisée dans le destructeur de la forme*/

Cdlt