Re: [fr-users] Encombrement des images

Le 08/02/2019 à 21:42, linux a écrit :
> 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 

On dirait plutôt un changement de taille d'affichage.

--
Amicalement vOOotre              Troumad Alias Bernard SIAUD
mon site : http://troumad.org : AD&D maths WEB...
Pour la liberté http://www.developpez.net/forums/f17/systemes/linux/ 
N'envoyez que des documents avec des formats ouverts, comme 
http://fr.libreoffice.org

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy