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 :
J'aurai donc besoin de trouver le code qui remplacerai les "?"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci pour votre aide.
Partager