Macro pour insertion d'image en taille réelle

[paco57]

J’ai trouvé un modèle de macro pour insérer une image dans un document writer, mais en définissant une taille manuellement. Moi je souhaite conserver les dimensions originales.

Le modèle de macro à corriger :

Sub insert_image_in_current_position()

    path_image = "/home/mau/Pictures/pymacros.jpg"

    doc = ThisComponent
    text = doc.CurrentSelection.getByIndex(0).End
	
    image = doc.createInstance("com.sun.star.text.GraphicObject")
    image.GraphicURL = ConvertToURL(path_image)
    image.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
    image.Width = 2500
    image.Height = 2500
            
    cursor = doc.Text.createTextCursorByRange(text)
    doc.Text.insertTextContent(cursor, image, False)
	
End Sub

[valioud]

Où est le problème ?
Il vous suffit d’enlever les lignes qui imposent la taille de l’image.

[paco57]

Ben non, ça ne marche pas. Si je supprime ces deux lignes, l’image insérée est ridiculement petite.

[paco57]

Ca ressemble à ça

[valioud]

Si elle est ancrée comme caractère, cela me semble normal.

https://api.libreoffice.org/docs/idl/ref/TextContentAnchorType_8idl.html