Macro pour redimenssionner une Image

Bonsoir,

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

Comment faire ?

Merci à tous pour votre aide

Eternelles mêmes questions:
Qu'as-tu déjà fait?
As-tu tapé "image" dans la recherche de l'aide en ligne?
As-tu utilisé l'enregistreur de macro?
Obtiens-tu un message d'erreur?
Si oui, lequel?
Si non, quel est le comportement anormal constaté?

Bonjour,

Voici mon code

Code:

---

1 2 3

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 ?

Merci à tous,

C'est OK

@ +

J'ai le meme souci mais a la différence que je recherche comment redimensionner une image dans un objet Image que j'ai mis sur un userform.

Code:

---

1 2 3

set Image1.Picture = LoadPicture(stChemin & stFicher, Color) image1.Height = 10 image1.Width = 20

---

Comment faire? sachant que j'ai déjà essayé de la dimensionner dans le loadpicture...

j'ai résolu mon 'tit souci alors sait on jamais je met la réponse si quelqu'un un jour en avait besoin.
il faut utiliser la propriété : image.PictureSizeMode = fmPictureSizeModeStretch.

@micalement