Connaitre tester la taille d'une image EXCEL

Bonjour,

Un probleme se pose à moi. J'ai une macro que j'ai développée. Elle est relativement simple.

- Son but: Créer des fiches de présentation de produits
- Son fonctionnement: Insérer une image dans une cellule excel suivant la valeur d'une cellule XX et une taille que j'ai décidé.

Mon problème est que si l'image est plus haute que large, alors elle ne sera pas positionnée exactment au même endroit dans la cellule que j'ai voulu.
Donc ce que je voudrais c'est pouvoir savoir la hauteur et la largeur de l'image. Mettre une fonction SI qui dit:

Si Lar > Lon => mettre l'image à position X
Si Lon> Lar => Alors mettre l'image à position Y

Est-ce possible???? Si quelqu'un peut m'aider... Je vous passe mon code qui fonctionne:


Sub images()

Application.ScreenUpdating = False

Dim chem As String, img_nom As String, imax As String

img_nom = Sheets("Feuil1").[B2].Value
chem = "D:\Documents and Settings\...\images\"
imax = chem & img_nom & ".jpg"

Range("F25").Select
ActiveSheet.Pictures.Insert(imax).Select

With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserve les proportions
.Height = 128 'hauteur de l'image
.Left = 427.5 'positionnement horizontal
.Top = 312# 'positionnement vertical
End With
Application.ScreenUpdating = True

End Sub