Re: [fr-users] Encombrement des images

REM  *****  BASIC  *****

rem **** copie locale ****
rem CodeAnnexeB-02.sxw   bibli : Images Module1
Option Explicit

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

Bonjour à tous

ci dessus un exemple de la bible de Bernard et Laurent

Jean-Luc

Le 08/02/2019 à 18:28, Bernard Siaud alias Troumad a écrit :
> Le 08/02/2019 à 16:21, Bernard Siaud alias Troumad a écrit :
> > Bonjour
> >
> >
> > Dans un document, il est très facile d'inclure une photo, les photos, 
> > on en a plein... On peut donc exploser la taille d'un document qui 
> > devient alors inexploitable facilement.
> >
> > il est possible de passer sur chaque image et de changer sa 
> > résolution en la compressant. En appuyant sur le bouton "calculer la 
> > nouvelle taille", on peut alors comparer la nouvelle taille à 
> > l'ancienne. Il serait bien aussi d'avoir la résolution actuelle de 
> > l'image.
> >
> >
> > Ma question est de savoir s'il est possible de compresser 
> > automatiquement toutes les images en même temps.
> J'ai trouvé comment parcourir toutes les images avec une macro. Mais, 
> comment faire pour exécuter automatiquement la fonction de compression 
> en imposant 200ppp à chaque image ?

--
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