Bonjour,

Comment faire pour récupérer les dimensions d'une image au format *.jpg par macro basic ?

Pour l'instant, j'arrive à obtenir quelque chose avec un code comme : oImage = ThisComponent.createInstance ("com.sun.star.drawing.GraphicObjectShape") oImage.GraphicURL = "/home/remi/test.jpg" print oImage.getsize().width

sauf que la dernière instruction renvoie 100. Idem pour la hauteur alors que l'image n'est pas carrée... Une idée ?

Avec un fichier BMP, le script suivant fonctionne :

Sub resizeImageByWidth(uneImage As Object, largeur As Long) Dim leBitMap As Object, Proportion As Double Dim Taille1 As New com.sun.star.awt.Size LeBitmap = uneImage.GraphicObjectFillBitmap Taille1 = LeBitMap.Size ' taille en pixels ! Proportion = Taille1.Height / Taille1.Width Taille1.Width = largeur ' largeur en 1/100 de mm Taille1.Height = Taille1.Width * Proportion uneImage.Size = Taille1 End Sub

d'après l'API, GraphicObjectFillBitmap est DEPRECATED : http://api.openoffice.org/docs/common/ref/com/sun/star/drawing/ GraphicObjectShape.html#GraphicObjectFillBitmap

Que faire alors ? Merci pour vore aide. Rémi.