redimensionner une image en la copiant avec une macro

[young 25]

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.

il 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+

 

[young 25]

Re : redimensionner une image en la copiant avec une macro

Re,

aprés plusieurs recherche et aide diverse, j'ai trouvé la solution. La voila pour ceux que cela interesse

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

A+ et bon week