Contenu | Rechercher | Menus

Annonce

Si vous rencontrez des soucis à rester connecté sur le forum (ou si vous avez perdu votre mot de passe) déconnectez-vous et reconnectez-vous depuis cette page, en cochant la case "Me connecter automatiquement lors de mes prochaines visites".
Test de l'ISO d'Ubuntu francophone : nous avons besoin de testeurs pour la version francophone d'Ubuntu 14.04. Liens et informations ici.

#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

Haut de page ↑