Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour redimenssionner une Image

  • Initiateur de la discussion Initiateur de la discussion malabarbe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

malabarbe

XLDnaute Occasionnel
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 ?
 
Dernière édition:
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.
 
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à :

Code:
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…