Discussion :

[retraite83]

Bonjour,

Je dimensionne par macro une image insérée manuellement par l'utilisateur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With H.Pictures(sh.Name)
           .ShapeRange.LockAspectRatio = msoFalse
           .Height = 300
           .Width = 439
End With

cela marche très bien, cependant j'ai une surprise au niveau de la taille de mon fichier après redimensionnement, je m'explique

Mon fichier fait x Ko

1) Si je dimensionne une photo par exemple de 300 Ko avec photofiltre en 439 X 300 elle devient 100 Ko

J'insère manuellement la photo et j'exécute ma macro avec le dimensionnement : mon fichier = x + 100 Ko

Normal

2) Si j'insère directement la photo de 300 Ko et que j'exécute ma macro avec le dimensionnement :

La photo prend bien la taille voulue mais mon fichier = x + 300 Ko

La photo est réduite mais le poids de la photo d'origine est conservée.

Peut-on remédier à cela ?

[78chris]

Bonjour

Quant tu sélectionnes une image tu as dans l'onglet Format d'image le bouton Compresser les images des options de taille et d'application à une ou toutes les images.

Avec l'enregistreur macro tu trouveras comment coder les paramètres qui te conviennent

[retraite83]

Bonjour Chris

Merci pour la piste que tu me donnes, j'ai donc lancé l'enregistreur de macro

Puis j'ai fait :

Sélectionner une image / format d'image / compresser / OK

J'arrête l'enregistreur, surprise voilà le résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub a()
'
' a Macro
'
 
 ActiveSheet.Shapes.Range(Array("Picture 9")).Select
End Sub

J'ai refait plusieurs fois, idem à chaque fois...

[78chris]

Arf

Fils sur le sujet https://www.developpez.net/forums/d1...s-excel-macro/
https://www.developpez.net/forums/d1...rtion-fichier/

Ici aussi https://stackoverflow.com/questions/...rkbook-via-vba

En espérant que cela résolve...

[retraite83]

Bonjour,

j'ai tenté toutes les possibilités, dans tous les cas l'image est bien réduite mais le poids reste toujours le poids de l'image d'origine (malgré le message actant la compression de l'image)

Je ne comprends pas pourquoi dans mon test une image de 1136 X 1300 réduite en 439 X 300 à toujours le même poids que l 'image avant réduction

Pour moi moins de pixel = moins de poids

C'est d'ailleurs ce qui se passe quand je fais la réduction avec photofiltre...

[laurent_ott]

Bonjour.
J'ai retrouvé un code qui modifie la taille d'une image au format BMP.
Il faudrait donc en source un fichier BMP, connaitre les nouvelles dimensions désirées pour sauvegarder la nouvelle image avec ces dimensions.
Puis vous chargez dans votre application l'image réduite.
Est-ce que ce format BMP conviendrait ?

Cordialement.