Hello everyone,
I come back with this code that does almost the same thing that I wanted
My only issue is that it inserts the pictures in new slides while I need the first picture to go the first slide, second to second, etc ...
Thank you very much
Sub PowerPoint_Import()
Dim ImgI AsLong, tmpDIAPO As Slide
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Add "Images","*.gif; *.jpg; *.jpeg",1
If.Show =-1Then
For ImgI =1To.SelectedItems.Count
Set tmpDIAPO = ActivePresentation.Slides.Add(Index:=ImgI, Layout:=ppLayoutTitleOnly)
tmpDIAPO.Shapes.AddPicture FileName:=.SelectedItems.Item(ImgI),_
LinkToFile:=msoFalse,_
SaveWithDocument:=msoTrue,_
Left:=0, Top:=0,_
Width:=-1, Height:=-1
Next
EndIf
EndWith
EndSub