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.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
