Ubuntu-fr

Tseppy

Réduire la taille d'une image dans libreoffice (avec macro)

Bonjour,
j'ai créé une macro qui, entre autre, ajoute des images dans un calc de libreoffice. Le problème est que c'est image sont trop grande et que je n'arrive pas à les réduire.

dim document   as object
        dim dispatcher as object
        rem ----------------------------------------------------------------------
        rem get access to the document
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
       
        rem ----------------------------------------------------------------------
        dim args1(0) as new com.sun.star.beans.PropertyValue
        args1(0).Name = "ToPoint"
        args1(0).Value = "$B$25"
       
        dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
       
        rem ----------------------------------------------------------------------
        dim args2(0) as new com.sun.star.beans.PropertyValue
        args2(0).Name = "ToPoint"
        args2(0).Value = "$B$25:$Q$37"
       
        dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
       
        rem ----------------------------------------------------------------------
        dim args3(2) as new com.sun.star.beans.PropertyValue
        args3(0).Name = "FileName"
        args3(0).Value = mon_fichier_relatif
        args3(1).Name = "FilterName"
        args3(1).Value = "JPEG - Joint Photographic Experts Group"
        args3(2).Name = "AsLink"
        args3(2).Value = false
       
        dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args3())

Est-ce qu'il n'y a pas un moyen pour que l'image insérer soit plus petite ? Merci de votre aide