Bernard Marcelly wrote:
Message de Rémi B date 2008-09-02 19:44 :
Comment par exemple récupérer la taille de l'image ?
Dim imageInfo As Object, Taille1 As Object, Taille2 As Object
imageInfo = uneImage.Graphic
Taille1 = imageInfo.Size100thMM ' la taille initiale en 1/100 de mm
print Taille1.Width, Taille1.Height
Taille2 = imageInfo.SizePixel ' la taille en nombre de pixels
print Taille2.Width, Taille2.Height
Attention, Size100thMM et SizePixel sont en lecture seule.
Pour modifier la taille, continuer à faire:
uneImage.Size = Taille1 ' valeur modifiée, évidemment !
Merci beaucoup pour ta réponse !
C'est le genre de code auquel j'étais arrivé avant de poster en dernier
recours :-s. Je ne comprends pas ce qu'il se passe et je crois ne plus
comprendre ce que je croyais avoir compris :-s
Voici ci-dessous un exemple qui ne marche pas :
Sub Essai
Dim oImage as Object
oImage =
ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape")
oImage.GraphicURL =
ConvertToURL("/home/remi/Desktop/trombinOOo/tests/test.bmp")
LireInfoImage(oImage)
End sub
Sub LireInfoImage(uneImage as object)
Dim imageInfo As Object
Dim Taille1 as new com.sun.star.awt.Size
imageInfo = uneImage.Graphic
Taille1 = imageInfo.Size100thMM ' la taille initiale en 1/100 de mm
print Taille1.Width, Taille1.Height
End Sub
J'ai une erreur de "type de données incohérent" sur la ligne
uneImage.Graphic
C'est le com.sun.star.drawing.GraphicObjectShape qui ne va pas ?
Merci. :-)
Rémi.
8 messages in org.openoffice.fr.prog[prog] Re: Re: redimensionner image ...
