#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