Discussion :

[XavierHWT]

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 ?

[DjmSoftware]

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 :

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

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

[DjmSoftware]

Salut ci-joint ub petit code d'exmple

Code :

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

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