Sub PowerPoint_Import()
Dim ImgI As Long, K As Long, tmpDIAPO As Slide
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
If .Show = -1 Then
For ImgI = 1 To .SelectedItems.Count
If K = 0 Then
Set tmpDIAPO = ActivePresentation.Slides.Add(Index:=ImgI \ 4 + 1, _
Layout:=ppLayoutTitleOnly)
End If
tmpDIAPO.Shapes.AddPicture Filename:=.SelectedItems.Item(ImgI), _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=10 + (K Mod 2) * 800, Width:=700, _
Top:=22 + (K \ 2) * 600, Height:=500
K = (K + 1) Mod 4
Next ImgI
End If
End With
End Sub