Bonjour,

J'ai bien trouvé dans la FAQ comment écrire une macro pour insérer une image.
(A noter que celle-ci n'utilise pas le curseur oCurseur créé en ligne 13 pour insérer l'image par oDrawPage.add(oGraphic) en ligne 34, donc on ne sait pas comment l'insérer à l'emplacement d'un autre curseur).

En fait je désire insérer l'image dans une cellule de tableau, mais surtout que l'image se redimensionne automatiquement à la largeur de cellule, comme quand l'utilisateur le fait manuellement. J'en suis à (extraits) :

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
 
	Dim loTableau as object, loCursor as Object
  	Dim loTaille as new com.sun.star.awt.Size  
 
	Set loCursor = goViewCursor.getText.createTextCursorByRange( goViewCursor)
	Set loTableau = goComp.createInstance("com.sun.star.text.TextTable")
	loTableau.initialize 1, 6
	goText.insertTextContent loCursor, loTableau, false
 
	Set loCellule = loTableau.getCellByName( "A1")
	Set loCellCursor = loCellule.createTextCursor	
 
	loTaille.width = 2400 'Dimension horizontale image  
	loTaille.height = 1800 'Dimension verticale image  
	Set loImage = goComp.createInstance("com.sun.star.drawing.GraphicObjectShape")  
	With loImage
		.GraphicURL = lsEntry
		.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
		.setsize( loTaille)  			
	End With
	loCellule.insertTextContent loCellCursor, loImage, false
Maintenant, quelle option à priori, ou quel calcul à postériori, pour que l'image soit redimensionnée à la largeur de colonne disponible ?

Merci