Sub Macro()

Dim oApp As New PowerPoint.Application
Dim oPresent As PowerPoint.Presentation
oApp.Activate
oApp.Visible = msoTrue
Set oPresent = oApp.Presentations.Add()

' Начало работы с библиотекой scripting Runtime

Dim oFSO As New Scripting.FileSystemObject
Dim oFolder As Scripting.Folder
Dim oFile As Scripting.File

Set oFolder = oFSO.GetFolder("C:\Users\Евгений\Новая папка")
Dim nCounter As Integer
nCounter = 1

For Each oFile In oFolder.Files
Set oSlide = oApp.ActivePresentation.Slides.Add(nCounter, ppLayoutBlank)
oSlide.Shapes.AddPicture Filename:="C:\Users\Евгений\Desktop\Новая папка" & "\" & oFile.Name, _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=10, Top:=10, Width:=700, Height:=520

nCounter = nCounter + 1
Next

End Sub