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 ?