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

[Nosty]

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.

[Arkham46]

Bjr,

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

[Nosty]

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.

[Nosty]

Code :

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

Merci quand même