You could try this maybe:

It assumes you have a presentation open with one blank slide in the Metro design and that slide is two content layout.

Might need a few tweaks as it's top of head code.

Obviously change the folder path

[vba]Sub insertPics()


Dim strFolder As String ' Full path to folder
Dim strName As String
Dim oPres As Presentation
Dim osld As Slide
Dim ocust As CustomLayout
Dim x As Long
' Edit this:
strFolder = "C:\Users\John\Desktop\Pics\" 'note the last \

Set oPres = ActivePresentation
Set osld = oPres.Slides(oPres.Slides.Count)
Set ocust = osld.CustomLayout

strName = Dir$(strFolder & "*.PNG")
While strName <> ""
x = x + 1
With osld.Shapes.AddPicture(strFolder & strName, msoFalse, msoTrue, -1, -1, -1, -1)
.Line.Visible = True
.Line.ForeColor.RGB = vbWhite
End With
osld.Shapes.Title.TextFrame.TextRange = "Screenshot " & x
strName = Dir()
If strName <> "" Then
Set osld = oPres.Slides.AddSlide(oPres.Slides.Count + 1, ocust)
ActiveWindow.View.GotoSlide osld.SlideIndex
End If
Wend

End Sub[/vba]