redimensionner une image en la copiant avec une macro

Bonjour à tous et à toutes,

voila je cherche comment redimensionner une image en la copiant avec une macro
J'ai essayer avec l'enregistreur de macro, mais celui.ci ne prend rien en compte à part le copier coller.

Y a-t-il une solution à mon problème

je vous le fichier ou il y a les macros copier et effecer
Merci de votre aide et bon week
A+

Bonjour,

Pour modifier la taille de l'image en feuille 7

Code:

---

1 2	Sheets("Feuil7").Shapes(1).Width = 50 Sheets("Feuil7").Shapes(1).Height = 50

---

Merci Jfontaine;

Cela fonctionne trés bien et cela fait un jour que je cherche et que je ne comprends rien.

Encore merci à toi et bon week-end
A+
:ccool: