[Macro][Writer] Insertion d'une image dans un tableau

fr-users
#1

Bonjour,

LO6.2.8 sous Win8.1

Quelqu'un aurait-il des bribes de code pour insérer une image dans un tableau, en particulier pour redimensionner l'image selon la largeur de cellule ?
- Récupérer la largeur dispo dans une cellule ? (peu important pour mon cas, mais pour savoir)
- récupérer et modifier les dimensions de l'image ?

En lien une base de test de macro (n'oubliez pas de placer une image C:/Temp/image.jpg ou modifier la ligne 36) :
https://www.cjoint.com/c/IJBvVTcta7Q

- quand je crée l'image et affecte l'URL, la taille est à 100x100 (centièmes de mm), qq soient les proportions de l'image

- quand je l'insère dans le tableau, la taille passe à 101x101

Je n'ai donc aucune info sur l'image à la base... pour la redimensionner.

Merci

#2

Bonjour,

Trouvé un moyen de la faire, utiliser GraphicObjectFillBitmap après avoir inséré l'image.

Dim loImage as Object, loBitmap as Object, loTaille as new com.sun.star.awt.Size
  
Set loImage = goComp.createInstance( "com.sun.star.drawing.GraphicObjectShape")
  With loImage
    .GraphicURL = "file:///C:/Temp/image.jpg"
    .AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
  End With
  loCellule.insertTextContent( loCellCursor, loImage, false)
  loBitmap = loImage.GraphicObjectFillBitmap
     loTaille = loBitmap.Size
  With loTaille
    .Height = .Height * 2500 \ .Width 'Redimensionne avec maintien proportions
    .Width = 2500
     End With
  loImage.setSize( loTaille)

end sub

Mais cette propriété est dépréciée. (Il faudrait utiliser maintenant la propriété Graphic, mais pas encore réussi : https://www.openoffice.org/api/docs/common/ref/com/sun/star/graphic/XGraphic.html )