XL 2016 Proportion image

[Anthonymctm]

Bonjour à tous,

Il y a quelques jours, j'ai posté une question pour l'import d'images en automatique.

XL 2016 - Cadrage et propriété d'images issues d'une macro

Bonjour à tous, J'ai trouvé sur le net un code assez sympa (qui date de 2010) qui me permet d'insérer une image dynamique dans une cellule qui contient une formule type =image("nomdufichier";"C:\chemindudossier") le code : Function Image(img_nom As Variant, Optional chemin As String = "") As...

www.excel-downloads.com

Grace à l'aide de D.D, j'obtiens des images centrées mais les proportions ne sont pas respectées.

Est-il possible d'ajouter quelques lignes dans la macro pour sélectionner toutes les images puis de diminuer le % le plus élevé entre le paramètre échelle de hauteur et celui de échelle de largeur pour le ramener à la valeur de l'autre ?

exemple : image 1 : echelle de hauteur 250% → 250%
échelle de largeur 270% → 250%

image 2 : echl de hauteur 300% → 170%
echl de largeur 170% → 170%

Puis une autre ligne pour recentrer les images ?

 

[Anthonymctm]

Any ideas ?

 

[D.D.]

Bonjour
Dimensionner une image proportionnellement ne pose pas de problème particulier.
Cependant le fait de le faire au sein d'une fonction m'a posé problème car le code de dimensionnement n'est pas pris en compte.

(C'est moi seulement ou la publicité qui se charge toutes les 10 secondes fait "sauter" la zone de saisie)

 

[Anthonymctm]

Et tu vois une solution pour ne plus passer par la formule ?

Le code VBA que j'avais trouvé sur le net est assez vieux au final

 

[D.D.]

Oui, une macro associée à une combinaison de touche ou a un bouton.

 

[Anthonymctm]

Moi ça me va très bien aussi !
Si j'ai un petit bouton d'actualisation pour actualiser les images c'est très bien