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