Contenu | Rechercher | Menus

Annonce

Ubuntu-fr.org recrute toujours de nouveaux modérateurs, avec de l'expérience.

Ubuntu 16.04 LTS
Commandez vos DVD et clés USB Ubuntu-fr !

Si vous avez des soucis pour rester connecté, déconnectez vous et reconnectez vous depuis ce lien en cochant le case
Me connecter automatiquement lors de mes prochaines visites.

#1 Le 16/04/2014, à 14:10

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

Hors ligne