[VBA-PowerPoint] Connaître la résolution d'une image

Bonjour,

J'aurai besoin du code VB me permettant d'insérer une image dans une diapositive PowerPoint. Les images ont une résolution inconnue alors il me faut un code m'affichant la largeur et la hauteur de celles-ci. Mon code ressemble pour le moment à cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub ajouterImage(url, X, Y, numindex) ActiveWindow.Selection.Unselect ActivePresentation.Slides.Range(Array(numindex)).Select   Dim Largeur, Longueur as Long Largeur= ? Longueur = ?   ActiveWindow.ViewType = ppViewSlide ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=url, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=X, Top:=Y, Width:=Largeur, Height:=Hauteur).Select ActiveWindow.ViewType = ppViewSlideSorter ActiveWindow.Selection.Unselect

---

J'aurai donc besoin de trouver le code qui remplacerai les "?"

Merci pour votre aide.

Bjr,

Width et Height sont des paramètres optionels.
S'il ne sont pas précisés, l'image garde sa taille d'origine.

J'ai justement un problème à ce niveau là ! quand je ne mes pas ces paramètres, l'image est réduite alors je voudrais forcer le programme à l'afficher sans changer sa taille.

EDIT : bon je n'ai rien dit l'image est de taille normal. Mais j'aurai tout de même besoin de ce que je vous ai demandé car je voudrais maintenant redimensionner l'image afin qu'elle soit assez grande pour être visible sans qu'elle soit ni déformée, ni trop grande.

Code:

---

1 2	Largeur = ActiveWindow.Selection.ShapeRange.Width Longueur = ActiveWindow.Selection.ShapeRange.Height

---

Merci quand même