Macro pour redimenssionner une Image

[malabarbe]

Bonjour,

Avec une macro, je voudrais redimenssionner une Image
mais avec une taille précise.

Voici mon code

Selection.ShapeRange.ScaleHeight 0.26, msoFalse, msoScaleFromBottomRight, msoTrue

Selection.ShapeRange.ScaleWidth 0.295, msoFalse, msoScaleFromBottomRight, msoTrue

Cela réduit bien l'image, mais l'image reste proportionnelle c'est a dire
que quand elle est bonne en hauteur, elle n'est plus bonne en largeur
et vice et versa !

Dans les propriétées de l'image, proportionnel reste coché
Car je ne souhaite pas forcément garder les proportions d'origine

Comment faire ?

 

[Robert]

Re : Macro pour redimenssionner une Image

Bonjour Malabarbe, bonjour le forum,

Pas sûr d'avoir bien comprois to problème... Essaie en remplaçant msoTrue par msoFalse dans ton code.

 

[malabarbe]

Re : Macro pour redimenssionner une Image

Salut,

Cela ne change rien

Ce que je vroudrais, c'est redimentionner une image sans en garder
les proportions.

C'est tout

 

[Robert]

Re : Macro pour redimenssionner une Image

Bonjour Malabarbe, bonjour le forum,

Est-ce que tu as remarqué que les deux coéfs était pratiquement les même 0.295 et 0.26 (une différence d'à peine 0.035) qui peut donner l'illusion que l'image garde ses proportions...

Quand je reprends tes codes j'ai un message d'erreur alors j'utilise ceux-là :

Selection.ShapeRange.ScaleHeight 0.26, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.295, msoFalse, msoScaleFromBottomRight

Avant de modifier l'image fait une copie. Modifie par macro l'une puis redonne-lui la même largeur proportionnellement que la copie et tu verras que sa hauteur est différente...

 

[malabarbe]

Re : Macro pour redimenssionner une Image

Ok, merci

Cela tourne

@ +

 

[helpexcel123]

Re : Macro pour redimenssionner une Image

Merci pour ce code!